Question

Задание 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.

Answer 1

Program TR;
var a: integer;
begin
write('введи число');
readln(a);
a:=a*a;
write('a=', a, ' умница')
end.

2+10=12
x < 20
y=12/2
Ответ: 6