//Решение почти правильное.
//Ошибка только в цикле for i := 1 to n do
//Цикл должен проверять до n - 1, т.к. в массиве из n
//элементов пар соседних элементов не может быть
//больше n - 1, например массив из 3 чисел
//1 2 3; пары : 1 2 и 2 3.
const
N = 20;
var
a: array[1..N]of integer;
i, j, k: integer;
begin
k := 0;
for i := 1 to N do
readln(a[i]);
for i := 1 to N - 1 do
begin
if (a[i] mod 2 = 0) and (a[i + 1] mod 2 = 0) then k := k + 1;
end;
writeln(k);
end.
<span>- Общее имя и один тип.</span>
A=17(8)=1111(2)
B=22(8)=10010(2)
C=34(10)=100010(2)
A+B+C=1111(2)+10010(2)+100010(2)=1000011(2)
1.
var a:array[1..100] of integer;
n,i:integer;
begin
write('N = ');readln(n);
writeln('Полученный массив:');
for i:=1 to n do a[i]:=2*i-1;
for i:=1 to n do write(a[i]:3);
writeln;
end.
Пример:
N = 5
Полученный массив:
1 3 5 7 9
2.
const n=15;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
write('K = '); readln(k);
for i:=1 to n div k do write(a[i*k]:3);
writeln;
end.
Пример:
Массив A:
6 6 8 14 15 5 18 6 18 1 17 6 3 19 2
K = 3
8 5 18 6 2
Var x,y,r:real;
begin
write('x, y: ');
readln(x,y);
write('R = ');
readln(r);
if x*x+y*y>r*r
then writeln('точка находится внутри круга')
else if x*x+y*y=r*r
then writeln('Точка находится на окружности')
else writeln('Точка находится вне круга');
end.
Пример:
x, y: 3 4
R = 5
Точка находится на окружности