Задание:
Дано положительное число 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.
Знаете другой ответ?