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

Question

Информатика

Вонифат

14 октября, 08:59

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

+1

Ответы (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.