Попробуй создать цикл, в котором К будет увеличиваться на +1, пока не будет больше n, зная формулу суммы арифметической прогрессии. В данном случае она примет вид: ((1+К)/2)*К
var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.
0100010001010000010000001000 в двоичной системе равно
Ответ: 4450408 в шестнадцатиричной
Тут дело в логических выражениях
запрос словестно: (фрегат и эсминец)
ранние запросы:
фрегат или эсминец 3000(a|b)
фрегат 2000(a)
эсминец 2500(b)
вообще, согласно формулам коньюнкции-дизюнкции:
а+b-a|b=a&b
подставляем:
2000+2500-3000=1500
Var i,j:integer;
begin
readln(i);
j=(i*i)+(i*3)+1;
writeln(j);
<span>end.</span>