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 x:real;
function y16(x:real):real;
begin
if x<=0 then y16:=x+2;
if (x>0) and (x<3) then y16:=-x+2;
if x>=3 then y16:=-2;
end;
function y18(x:real):real;
begin
if x<=0 then y18:=-x-3;
if (x>0) and (x<5) then y18:=x-3;
if x>=5 then y18:=2;
end;
begin
readln(x);
writeln(y16(x));
writeln(y18(x))
end.
1.а
5 управление памятью
1.планирование процессоы
4.поддержка опр...
2файловая система
3.защита
Взвешиваем две любые монеты- Чашки в равновесии -Да Третья монета фальшивая-Нет Фальшивая монета в более легкой чашке
Ответ: BАЖГЕБД так как в начале идёт протокол, далее двоеточие и двойной слэш ,потом имя сервера, слэш и наконец имя файла.