Дано положительное число A.Найдите среди чисел 1,1+1/2,1+1/3..........первое,большее A..ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЬ
var
A, S:real;
i:integer;
begin
write(A = ); readln(A);
if A < 1 then
begin
writeln(1 > , A);
exit;
end;
if A < 1.5 then
writeln(1.5 > , A)
else
writeln(Таких чисел нет);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
