Помогите решить задачу! Даны два целых числа а и б (а меньше б) вывести на экран все целые числа расположенные между данными числами ( не включая эти числа , в порядке их убывания, а так же количество этих чисел. (Паскаль цикл...
Помогите решить задачу! Даны два целых числа а и б (а< б) вывести на экран все целые числа расположенные между данными числами ( не включая эти числа , в порядке их убывания, а так же количество этих чисел. (Паскаль цикл с предусловием)
Гость
Ответ(ы) на вопрос:
Гостьprogram asd;
var a,b,k:integer;
begin
readln (a,b);
b:=b-1;
while (b>a) do begin
write (b,', ');
b:=b-1;
k:=k+1;
end;
writeln;
writeln (k);
readln;
end.
Не нашли ответ?
Похожие вопросы