Var
i,k,m:integer;
n:longint;
begin
Write('Введите количество чисел: '); Read(k);
m:=0;
Writeln('Вводите числа');
for i:=1 to k do
begin
Read(n);
if n mod 6 = 0 then inc(m)
end;
Writeln('Количество чисел, кратных 6, равно ',m)
end
<em><u>Тестовое решение:</u></em>
Введите количество чисел: 4
Вводите числа
3 18 26 24
Количество чисел, кратных 6, равно 2
Значит эта ОС лучше чем другие(удобный интерфейс нормальный девайс ее очень легко установить стоит она немного продается диск в каждом магазине и типо того)
Элекронной почтой! Звонок по телефону может отвлечь от важного дела, тк человек очень занятой, а письмо он прочтет и ответит по мере своего свободного времени.
3.5 кб переводим в биты=3,5*1024=34304 байта
в печатном символе 8 бит как раз 1 байт
Ответ 34304 символа