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