// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (a,b,c):=ReadInteger3('Введите три целых числа:'); var (p,k):=(int64(1),0); if a<0 then begin p:=p*a; k+=1 end;; if b<0 then begin p:=p*b; k+=1 end; if c<0 then begin p:=p*c; k+=1 end; Writeln('Произведение чисел равно ',p); Writeln('Количество отрицательных чисел равно ',k); end.
Пример Введите три целых числа: 12345 -67891011 -1213141516 Произведение чисел равно 82361404007312676 Количество отрицательных чисел равно 2
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
var (p,k):=(int64(1),0);
if a<0 then begin p:=p*a; k+=1 end;;
if b<0 then begin p:=p*b; k+=1 end;
if c<0 then begin p:=p*c; k+=1 end;
Writeln('Произведение чисел равно ',p);
Writeln('Количество отрицательных чисел равно ',k);
end.
Пример
Введите три целых числа: 12345 -67891011 -1213141516
Произведение чисел равно 82361404007312676
Количество отрицательных чисел равно 2