Составить программу, которая каждое введенное положительное число увеличивает в два раза, а отрицательное возводит в квадрат.
Составить программу, которая каждое введенное положительное число увеличивает в два раза, а отрицательное возводит в квадрат.
Ответ(ы) на вопрос:
Pascal ABC var a : integer;
begin
readln(a);
If a >= 0 then a := 2*a;
If a < 0 then a := a*a;
writeln(a)
end.
program z1; uses crt; var x,y:integer; begin clrscr; writeln('введи число'); readln(x); if x>=0 then x:=x*2 else if x<0 then sqr(x); writeln(x); readln; end.
Не нашли ответ?
Похожие вопросы