Вычислить произведение чётных отрицательных чисел.

@3632633 · Регистрация: 30.10.2020

Author24 — интернет-сервис помощи студентам

С клавиатуры вводятся n произвольных чисел. Составить алгоритм и написать программу, вычисляющую произведение чётных отрицательных чисел.

@Puporev · 16.01.2021, 07:56

Pascal

var n,i,a,k:integer;
      p:real;
begin
write('n=');
readln(n);
writeln('Введите ',n,' целых чисел, в том числе четные отрицательные');
p:=1;
k:=0;
for i:=1 to n do
 begin
  readln(a);
  if(a<0)and(a mod 2=0)then
   begin
    k:=1;
    p:=p*a;
   end;
 end;
if k=0 then p:=0;
writeln('Произведение четных отрицательных=',p:0:0);
end.

@3632633 0 / 0 / 0 Регистрация: 30.10.2020 Сообщений: 11
		1
	Вычислить произведение чётных отрицательных чисел. 15.01.2021, 21:46. Показов 2503. Ответов 1 Метки нет (Все метки) С клавиатуры вводятся n произвольных чисел. Составить алгоритм и написать программу, вычисляющую произведение чётных отрицательных чисел. 0

	16.01.2021, 07:56

Опции темы