Регистрация
StepanDor
03.08.2020 18:29
Информатика
Есть ответ 👍

Написать программу для вычисления x<0, то y=|x| иначе y=x^2​

193
478
Посмотреть ответы 2

Ответы на вопрос:

Gen04
Gen04
4,6(59 оценок)

var x, y:Integer;

begin

readln(x);

if x < 0 then

y:=abs(x)

else

y:=sqr(x);

writeln(y);

end.

sereja65
sereja65
4,4(72 оценок)
Program vbn; var a,b,c,d: integer; begin writeln('введите a,b,c,d'); readln(a,b,c,d); b: =a; c: =b; d: =c; writeln('a=',a); writeln('b=',b); writeln('c=',c); writeln('d=',d); end.

Популярно: Информатика