Нифонт
4 год назад
Пожалуйста посчитайте пожалуйста)по информатике Pascal abc 1)Составьте программу , которая выводит на экран число X,которое изменяется от 1 до 10 и значения выражения(√x+√x)^22)Составьте программу , которая выводит на экран все числа от 20 до 50,оканчивающиеся на цифру 6.
ОТВЕТЫ
Bozhanka
Oct 24, 2020
Program asd;
Uses crt;
Var x,a:integer;
begin
For x:=1 to 10 do
begin
a:=sqr(sqrt(x)+sqrt(x));
writeln (a);
end;
end.
2.
Program asd;
Uses crt;
Var x:integer;
Begin
For x:=20 to 50 do
if x mod 10=6
then writeln (x);
end.
Uses crt;
Var x,a:integer;
begin
For x:=1 to 10 do
begin
a:=sqr(sqrt(x)+sqrt(x));
writeln (a);
end;
end.
2.
Program asd;
Uses crt;
Var x:integer;
Begin
For x:=20 to 50 do
if x mod 10=6
then writeln (x);
end.
92
Смежные вопросы: