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

@albert12 · Регистрация: 27.11.2015

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

дана последовательность чисел a i (i=1,2.,N) подсчитать произведение и количество четных чисел вывести их значения и порядковые номера

@JokeR.BY · 21.04.2016, 17:57

Pascal

var
    Result: Extended; //Double, Real
    i, n, count: Byte;
begin
    repeat
        Write('Input n='); ReadLn(n);
    until (n > 1);
    Result := 1; i := 2; count := 0;
    while (i <= n) do
    begin
        Result := Result * i;
        Inc(count);
        WriteLn(#9, i, #9, count);
        Inc(i, 2);
    end;
    WriteLn('Mult=', Result:0:0);
    Write('Count=', count);
end.

@albert12 · 18.05.2016, 16:39 **[ТС]**

2 задача.pas(2) : Неизвестное имя 'Extended'

@JokeR.BY · 18.05.2016, 17:56

albert12, а комментарий для кого?

@albert12 · 18.05.2016, 18:51 **[ТС]**

не работают

@JokeR.BY · 18.05.2016, 20:07

Pascal

1	Result: Real;

@albert12 0 / 0 / 0 Регистрация: 27.11.2015 Сообщений: 27
		1
	Вычислить произведение четных чисел 21.04.2016, 12:32. Показов 2042. Ответов 5 Метки нет (Все метки) дана последовательность чисел a i (i=1,2.,N) подсчитать произведение и количество четных чисел вывести их значения и порядковые номера 0

@albert12 0 / 0 / 0 Регистрация: 27.11.2015 Сообщений: 27
	18.05.2016, 16:39 [ТС]	3
	2 задача.pas(2) : Неизвестное имя 'Extended' 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	18.05.2016, 17:56	4
	albert12, а комментарий для кого? 0

@albert12 0 / 0 / 0 Регистрация: 27.11.2015 Сообщений: 27
	18.05.2016, 18:51 [ТС]	5
	не работают 0

	18.05.2016, 20:07

Опции темы

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

Решение