Слайд 2S:=S+i
TOP:=TOP+X
F:=F+d
ПО СУММЕ
K:=K+1
V:=V+1
BOP:=BOP+1
ПО КОЛИЧЕСТВУ
Счётчики
![S:=S+i TOP:=TOP+X F:=F+d ПО СУММЕ K:=K+1 V:=V+1 BOP:=BOP+1 ПО КОЛИЧЕСТВУ Счётчики](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/1163267/slide-1.jpg)
Слайд 3Задача №1 Найти сумму всех двузначных чисел
Program z1;
var i, s: integer;
Begin
for i:=10
![Задача №1 Найти сумму всех двузначных чисел Program z1; var i, s:](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/1163267/slide-2.jpg)
to 99 do
S:=S+i;
writeln('S=',S);
End.
Слайд 4Задача №2 Найти произведение чисел от а до 7
Program z2;
var i,s,a: integer;
Begin
writeln('a=');
readln(a);
S:=1;
for
![Задача №2 Найти произведение чисел от а до 7 Program z2; var](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/1163267/slide-3.jpg)
i:=a to 7 do
S:=S*i;
writeln('S=',S);
end.
Слайд 5Задача №3. Найти среднее арифметическое для чисел от a до b
Program z3;
var
![Задача №3. Найти среднее арифметическое для чисел от a до b Program](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/1163267/slide-4.jpg)
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.
Слайд 6Генератор случайных чисел
Random(10) – находит случайные число от 0 до 10
Масштабирование
Random(7)+12 –
![Генератор случайных чисел Random(10) – находит случайные число от 0 до 10](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/1163267/slide-5.jpg)
[12;19]
Random(5)-50 - [-50;-45]