Регистрация
sereg1525
25.12.2021 17:25
Информатика
Есть ответ 👍

Напишите программу паскаль 3×х-х^2/2+2×х^2-х/6​

102
413
Посмотреть ответы 1

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

nimiilo1
nimiilo1
4,7(61 оценок)
// pascalabc.net 3.0, сборка 1150 от 22.01.2016 begin   var n: =readinteger('n=');   var s: =0;   var k: =0;   var m: integer;   for var i: =1 to n do begin       read(m);       if odd(m) and (m mod 3 = 0) then begin           s+=m; inc(k)           end       end;   if k> 0 then writeln(s/k)   else writeln('нет чисел, удовлетворяющих условию') end. тестовое решение: n= 10 6 3 12 15 -9 11 0 14 42 11 3

Популярно: Информатика