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
Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
<span>end.</span>
Все просто! Ввод, вывод и память в машине тюринга представляют собой ленту, разделенную на ячейки. в каждой ячейке или символ или она пустая. ПРОЦЕССОР МАШИНЫ СПОСОБЕН ЗА ОДИН РАЗ РАССМОТРЕТЬ ТОЛЬКО ОДНУ ИЗ ЯЧЕЕК. ОН МОЖЕТ СТЕРЕТЬ СИМВОЛ В ЭТОЙ ЯЧЕЙКЕ, ЗАПИСАТЬ ДРУГОЙ, ПЕРЕМОТАТЬ ЛЕНТУ ВПЕРЕД-НАЗАД НА НЕСКОЛЬКО ЯЧЕЕК.<span>
</span>
Нужно сложить все числа и разделить на количество самих чисел. Например среднее арифметическое чисел 8, 2 и 20 будет 10, потому что (8+2+20):3=10
1кбайт=1024байт
1гбайт=1024кбайт=1024*1024байт=1048576байт