ТутРешу.Ру

Дано положительное число A. Найдите среди чисел 1,1+1/2,1+1/3…

Задание:

Дано положительное число 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.




Знаете другой ответ?

Отправить свой ответ