var a: integer;
begin
write('A = '); read(a);
a := a * a;
if a > 20 then a := a + 150
else a := a + 1000;
write('A = ', a);
end.
Как узнать сколько существует ра
Дано неКак узнать сколько чисел.
информатику посчитайте пж
1.Речення, яке містить твердженн
Складіть блок-схему фрагмента ал
if a<5:b=a+1else:if a<10:b