ПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1)даны 2 числа, заменить второе число нулем, если оно не меньше первого и оставить его прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений

1

Ответы и объяснения

2012-12-25T21:07:37+00:00

1)var

a,b:integer;

read(a);

read(b);

if b>=a then

b:=0;

write(a, ' ', b);

end.

2)

var

a,b,c:integer;

read(a);

read(b);

read(c);

if a>0 then

a:=a*a;

if b>0 then

b:=b*b;

if c>0 then

c:=c*c;

write(a, ' ', b, ' ', c);

end.