Информатика, опубликовано 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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на