Севастианович
5 год назад
Информатика 9 класс срочно пожалуйста
ОТВЕТЫ
Andron
Oct 24, 2020
Правильный код:
Program PRIMER;
Var
a,x:real;
begin
Write ('Введите число');
read (x);
if (x<>0) then a:=x*x else a:=3*x;
end.
Program PRIMER;
Var
a,x:real;
begin
Write ('Введите число');
read (x);
if (x<>0) then a:=x*x else a:=3*x;
end.
216
