uses robot;
begin
task('cif18');
Right;
while CellIsPainted do Right;
Down;
if CellIsPainted then Up else Left;
end.
Как я понял, нужно определить четные элементы массива.
Var a:array[1..6] of integer;
x,n:integer;
begin
For x:=1 to 6 do
read (a[x]);
n:=0;
For x:=1 to 6 do
If a[x] mod 2=0 then n:=n=1;
Writeln(n);
end.
Var
n,i,s,k,p:integer;
begin
p:=1;
write('Введите число ');
readln(n);
writeln(' среднее арифметическое от 1 до ',N,' = ',(n+1)/2);
for i:=1 to n do begin
if (i mod 3 = 0) and (i mod 2 = 0) then begin
s:=s+i; k:=k+1;
end;
p:=p*i
end;
writeln(' среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ',N,' = ',s/k);
writeln(' произведение чисел от 1 до ',N,' = ',p);
end.
Тестовое решение:
Введите число 10
среднее арифметическое от 1 до 10 = 5.5
среднее арифметическое целых,чётных,кратных 3 чисел от 1 до 10 = 6
произведение чисел от 1 до 10 = 3628800
Одноранговая локальная сеть является наиболее распространённым вариантом создания как домашних, так и корпоративных ЛБС(Лёгкое бомбардировочное соединение).
Это обусловлено тем, что подобные сети позволяют каждому клиенту
(пользователю) в сети самостоятельно управлять различными сетевыми устройствами например: принтерами.
Кроме того, создание одноранговой сети в большинстве случаев значительно проще и дешевле настройки централизованной компьютерной сети с подключением серверов