Регистрация
lilyamkrtchyan1
15.05.2021 21:36
Информатика
Есть ответ 👍

Составить алгоритм в паскаль очень

174
419
Посмотреть ответы 2

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

gal12
gal12
4,4(45 оценок)
program a; var x:real; begin readln(x); if x>2 then x:=1/(x*x) else x:=1+x/2; writeln(x); end.

Объяснение:

MishaChaos1
MishaChaos1
4,6(82 оценок)

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

 

или

 

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

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