Даны 2 числа. Если они положительные - умножить их на 3, иначе - возвести в квадрат. в pascal

Question

Информатика

Гера

2 сентября, 10:24

Даны 2 числа. Если они положительные - умножить их на 3, иначе - возвести в квадрат. в pascal

+5

Ответы (2)

Знаете ответ на вопрос?

Миланка · Answer 1

uses crt;

var a, b, x, y, newa, newb, newa2, newb2:integer;

begin

write ('a=') ; read (a) ;

write ('b=') ; read (b) ;

newa:=3*a; newb: = 3*b;

newa2:=sqr (a) ; newb2:=sqr (b) ;

if (a>0) and (b>0) then write ('newa = ', newa,' | ', 'newb = ', newb)

else write ('newa = ', newa2,' | ', 'newb = ', newb2) ;

end.

Анастасий · Answer 2

Var a, b:integer;

begin

write ('a=') ; read (a) ;

write ('b=') ; read (b) ;

if (a > 0) and (b > 0) then

writeln (3*a, ' ', 3*b)

else

writeln (a*a, ' ', b*b) ;

end.