Цикл с параметром

S:=S+i
TOP:=TOP+X
F:=F+d
ПО СУММЕ
K:=K+1
V:=V+1
BOP:=BOP+1
ПО КОЛИЧЕСТВУ
Счётчики

Задача №1 Найти сумму всех двузначных чисел
Program z1;
var i, s: integer;
Begin
for i:=10 to 99 do
S:=S+i;
writeln('S=',S);
End.

Задача №2 Найти произведение чисел от а до 7
Program z2;
var i,s,a: integer;
Begin
writeln('a=');
readln(a);
S:=1;
for i:=a to 7 do
S:=S*i;
writeln('S=',S);
end.

Задача №3. Найти среднее арифметическое для чисел от a до b
Program z3;
var i,s,a,b,k: integer;
Sr:real;
Begin
writeln('a,b=');
readln(a,b);
for i:=a to b do
begin
S:=S+i;
K:=K+1;
end;
Sr:=S/k;
writeln('Sr=',Sr);
end.

Генератор случайных чисел
Random(10) – находит случайные число от 0 до 10
Масштабирование
Random(7)+12 – [12;19]
Random(5)-50 - [-50;-45]