Вообще-то натуральные числа - это числа > 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
0 votes Thanks 0
vladmor
Var a,b:integer; begin writeln('Введите два числа '); readln(a,b); if a>0 then writeln(b) else writeln(sqr(a)); end.
Answers & Comments
Verified answer
Вообще-то натуральные числа - это числа > 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
begin
writeln('Введите два числа ');
readln(a,b);
if a>0 then writeln(b)
else writeln(sqr(a));
end.