Информатика

Всеволодыч

11 мая, 22:47

Задание 2. Исправить ошибки программы и вывести вместе с ответом слово "умница".

Program TR

Var a: - integer;

Begin write (введи число)

read (a)

a = a*a

write ('a=', a)

End

1) Что получиться в результате выполнения программы, если было введено число 2?

program T;

Var y, x: integer;

begin read (x) ;

x:=x+10;

if x>20 then y:=x*x

else y:=x/2;

write (y) ;

end.