Заданы числа a и b.Если они положительные то найти их произведение а в остальных случаях найти их сумму.
Answers & Comments
vladmor
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) begin var a:=ReadlnInteger('Введите число а'); var b:=ReadlnInteger('Введите число b'); if (a>0) and (b>0) then println(a,'*',b,'=',a*b) else println(a,'+',b,'=',a+b) end.
Answers & Comments
begin
var a:=ReadlnInteger('Введите число а');
var b:=ReadlnInteger('Введите число b');
if (a>0) and (b>0) then println(a,'*',b,'=',a*b)
else println(a,'+',b,'=',a+b)
end.