Задание 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.
Программа с ошибками:
Program TR
Var a:– integer;
Begin
write( введи число )
read ( a)
a =a*a
write (‘a=’, a)
End
Исправленная программа:
Program TR;
Var a: integer;
Begin
writeln('введи число');
readln(a);
a := a * a;
writeln('a=', a);
writeln('умница');
End
Ответ: умница.