Информатика, опубликовано 2018-08-22 21:41:30 by Гость

Найдите k k:=1 for c:=1 to 5 do if c mod 2 0 then k:=k*c;

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

Var
    k, c: integer;

begin
    k := 1;
    for c := 1 to 5 do
        if c mod 2 0 then
            k := k * c;
    writeln(k);
end.

Ответ 15

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.