Составить программу, которая каждое введенное положительное число увеличивает в два раза, а отрицательное возводит в квадрат.

Question

Информатика

Ариадна

31 января, 00:23

Составить программу, которая каждое введенное положительное число увеличивает в два раза, а отрицательное возводит в квадрат.

+2

Ответы (2)

Знаете ответ?

Памфилий · Answer 1

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.

Федуся · Answer 2

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.