Код Pascal:
1)
Var A,S:integer;
Begin
{Первый способ}
S:=0;
A:=7;
While A<=98 do<br> Begin
S:=S+A;
A:=A+7
End;
WriteLn('S = ',S);
{Второй способ}
S:=0;
For A:= 1 to 14 do
S:=S+A*7;
WriteLn('S = ',S);
End.
2)
Var A,i:integer;
Begin
Write('Введите натуральное число: ');ReadLn(A);
Write('Остатки от деления чисел [80..100] на ',A,':');
For i:= 80 to 100 do
Write(' ',i mod A)
End.
3)
Var
A,B,dA,dB,d:integer;
Begin
WriteLn('Введите два натуральных числа');
ReadLn(A,B);
d:=A div 2;
if A>1 then dA:=1
else dA:=0;
While d>0 do
Begin
if A mod d = 0 then dA:=dA+1;
d:=d-1
End;
WriteLn('Количество делителей первого числа: ',dA);
d:=B div 2;
if B>1 then dB:=1
else dB:=0;
While d>0 do
Begin
if B mod d = 0 then dB:=dB+1;
d:=d-1
End;
WriteLn('Количество делителей второго числа: ',dB);
if dA>dB then WriteLn('Делителей больше у числа ',A)
else if dA else WriteLn('У числел ',A,' и ',B,' равное количество делителей');
End.