Регистрация
eldar6213
10.08.2021 08:36
Информатика
Есть ответ 👍

Ребят, если кто то разбирается

144
317
Посмотреть ответы 2

Ответы на вопрос:

demkainka
demkainka
4,4(76 оценок)

While

Program test1;

Var x:Real;

Begin

writeln(' x y') ;

x:=-3;

while x<=1+0.1 do

begin

writeln(x:4:1,' ',(2*sqr(x)+5):5:2);

x:=x+0.1;

end

End.

Repeat

Program test2;

Var x:Real;

Begin

writeln(' x y') ;

x:=-3;

repeat

writeln(x:4:1,' ',(2*sqr(x)+5):5:2);

x:=x+0.1;

until x>1.1;

End.

БраткаТвой
БраткаТвой
4,6(10 оценок)
45 раз он будет прибавлять единицу к n  45 раз.

Популярно: Информатика