Var s, i: integer;
begin
for i:=10 to 99 do
if i mod 7 = 0 then
s:=s+i;
writeln(s);
<span>end.</span>
Над типом integer нельзя выполнять деление. Раз тут деление, то нужен вещественный тип, а то есть real. a и b могут быть описаны и как real и как integer.
5589 = 931 * 6 + 3
931 = 155 * 6 + 1
155 = 25 * 6 + 5
25 = 4 * 6 + 1
4 = 6 * 0 + 4
Записываем числа после плюса справа налево: 41513.
Пишешь в первой строке: х, затем числа, для которых посчитать
во второй строке: у, затем:
=ЕСЛИ(B1<-1;-4*B1+2+SIN(B1);ЕСЛИ(B1<0;ABS(B1);2*B1*LN(B1+1)))