danylka33
06.06.2021 15:56

Дано вещественное число a. из чисел 1, 1+1/2, 1+1/ напечатать те, которые меньше a. решите, , через while!

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vannyporchun
08.10.2020 00:22
Var a,l,s:real;
Begin
Read(a);
S:=1+1/2;
L:=2;
While s>=a do
Begin
Writeln(s);
L:=l+1;
S:=1+1/l
End
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота