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

Question

Дано положительное число A. Найдите среди чисел 1,1+1/2,1+1/3… . Первое, большее A… ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ ВПАСКАЛЬ

Answer 1

57

andy7

01 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: