Найдите k k:=1 for c:=1 to 5 do if c mod 2 меньше больше 0 then k:=k*c;
Найдите 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
Не нашли ответ?
Похожие вопросы