Даны действительные числа x, y. Вывести в порядке убывания все целые числа, расположенные между х и у, а также количество этих чисел.
Сделать цикличный алгоритм
На языке паскаль
vimmortal2:
на каком языке программирования?
Ответы
Ответ дал:
5
Программа:
Pascal:
var
x, y: real;
n: integer;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if x > y then
while x > y + 1 do begin
x := round(x) - 1;
writeln(x);
inc(n);
end
else
while y > x + 1 do begin
y := round(y) - 1;
writeln(y);
inc(n);
end;
writeln(n, ' чисел между данными цифрами');
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад