program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
Осн. 2 -> Осн. 8 -> Осн. 10 -> Осн. 16
101010 -> 52 -> 42 -> 2A
1010111 -> 127 -> 87 -> 57
101000111 -> 507 -> 327 -> 147
101010 -> 52 -> 42 -> 2A
//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
N:10 for(i 1 ;i больше n ;i++) A[n+1 i больше ] 2* A[i]
Учитывая первый оператор write(4) и то, что цикл будет выполнен 3 раза, то получим 4864