Найти произведение всех четных чисел от А до А+10 и вывести эти числа (А - целое число)

@Пашасдесь · Регистрация: 23.01.2014

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

Kodzaev · 23.01.2014, 19:09

Pascal

var
  a, p, i: longint;
 
begin
  Write('A = ');
  Readln(a);
  p := 1;
  for i := a to a + 10 do
  begin
    Write(i, ' ');
    if i mod 2 = 0 then
      p := p * i;
  end;
  Writeln;
  Writeln('Произведение четных = ', p);
  Readln
end.

@Пашасдесь 0 / 0 / 0 Регистрация: 23.01.2014 Сообщений: 4
		1
	Найти произведение всех четных чисел от А до А+10 и вывести эти числа (А - целое число) 23.01.2014, 18:46. Показов 1751. Ответов 1 Метки нет (Все метки) Найти произведение всех четных чисел от А до А+10 и вывести эти числа (А - целое число) 0

	23.01.2014, 19:09

Найти произведение всех четных чисел от А до А+10 и вывести эти числа (А - целое число)

Решение