Задание 2. Исправить ошибки программы и вывести вместе с ответом слово «умница». Program TR Var a:– integer; Begin write( введи число ) read ( a) a =a*a write (‘a=’, a) End 1) Что получиться в результате выполнения програм...
Задание 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('введи число');
readln(a);
a:=a*a;
write('a=', a, ' умница')
end.
2+10=12
x < 20
y=12/2
Ответ: 6
Не нашли ответ?
Похожие вопросы