Вопрос по информатике:
Дано положительное число A.Найдите среди чисел 1,1+1/2,1+1/3..........первое,большее A..ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЬ
- 13.01.2018 22:57
- Информатика
- remove_red_eye 5203
- thumb_up 50
Ответы и объяснения 1
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.
- 15.01.2018 04:06
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.