Даны числа a и b. Если оба отрицательные, то возвести каждое в квадрат иначе, увеличить на 100.
P.S. программа Pascal
Ответы
Ответ дал:
2
Var a, b:real;
Begin
readln (a,b);
If (a<0) and (b<0) then begin
a:=sqr(a); b:=sqr(b);
writeln (a,' ',b);
end;
else
begin
a:=100*a; b:=100*b;
writeln (a,' ',b);
end;
end.
Вас заинтересует
11 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад