Даны числа от 1 до n. найти произведение чисел кратных 3 и оканчивающихся на 1.

281

345

Посмотреть ответы 2

Ответы на вопрос:

друг100

Информатика

4,7(63 оценок)

Var n,i,p: integer; beginwrite('n = '); readln(n); p: =1; for i: =1 to n do if (i mod 3 = 0)and(i mod 10 = 1) then p: =p*i; writeln('p = ',p); end.пример: n = 80p = 1071

Aidos2011

Информатика

4,6(96 оценок)

Var s: integer; begin readln(s); if (s=12) or (s=1) or (s=2) then writeln('зима') else if (s=3) or (s=4) or (s=5) then writeln('весна) else (s=6) or (s=7) or (s=8) then writeln('лето') else writeln('осень'); end;