Предмет: Информатика,
автор: PavelInf
Дано вещественное число a. Из чисел 1, 1+1/2, 1+1/3... напечатать те, которые меньше a. Решите, пожалуйста, через while!
Ответы
Автор ответа:
2
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.
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.
Похожие вопросы
Предмет: История,
автор: BBIbka
Предмет: История,
автор: Аноним
Предмет: Обществознание,
автор: Аноним
Предмет: Математика,
автор: лиза73717