Составить программу, которая каждое введенное положительное число увеличивает в два раза, а отрицательное возводит в квадрат.
Ответы
Ответ дал:
0
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.
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад