Даны два натуральных числа A и B Если А-положительное то вывести на экран B иначе вывести квадрат числа А
- Var a,b:integer;
begin
writeln(Введите два числа );
readln(a,b);
if a>0 then writeln(b)
else writeln(sqr(a));
end. - Вообще-то натуральные числа — это числа > 0, так что будем считать, что даны числа целые.
var a,b:integer;
begin
write(a = ); readln(a);
write(b = ); readln(b);
if a>0 then writeln(b) else writeln(a*a);
end.Пример:
a = -7
b = 5
49