Регистрация
nastiaalecko00
04.02.2021 16:49
Информатика
Есть ответ 👍

подготовить ответ к зачету на вопрос "Автоматизированное рабочее место специалиста" по предмету Информационные технологии

121
254
Посмотреть ответы 1

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

abnihggdm
abnihggdm
4,5(69 оценок)
Var i, x, count: integer;       sum: real; begin       sum : = 0;       count : = 0;       for i : = 1 to 6 do               begin;               writeln('введите число');               readln(x);               if (x mod 4 = 0) or (x mod 10 = 5) then                       begin;                       sum : = sum + x;                       count : = count + 1;                       end;               end;       writeln(sum/count); end.

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