//Решение почти правильное.
//Ошибка только в цикле 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.
Вкняыкецые ЙКуе это правильный ответ
Var
s,sd:string;
i,n,sum,d,err:integer;
begin
Writeln('Введите строку для суммирования');
Read(s);
sum:=0;
n:=Length(s);
if n>0 then begin
i:=2; sd:=s[1];
while i<=n do begin
if s[i]<>'+' then sd:=sd+s[i]
else begin
Val(sd,d,err);
sum:=sum+d;
sd:=''
end;
Inc(i);
end;
Val(sd,d,err);
sum:=sum+d
end;
Writeln('Сумма равна ',sum)
end.
<u><em>Тестовые примеры:</em></u>
Введите строку для суммирования
1+25+3
Сумма равна 29
Введите строку для суммирования
143+38+253+62
Сумма равна 496
5А₆ = 1011010₂ = 90
50₈= 101000₂ = 40
5А₆ +50₈ = 10000010₂ =130
Ответ: №2