Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Заданы числа a и b.Если они положительные то найти их произведение а в остальных случаях найти их сумму.

Ответ оставил Гость

//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.