Оператор цикла с предусловием

program a1;
var c: integer;
begin
c = 100;
writeln (c)
end.
;
№1
:

program a2;
var a: integer;
b: real;
begin
a: = 100;
b:= 20.5;
writeln (a,b);
end.
№2

program a3;
var c integer;
begin
c = 100;
writeln (c);
end.
№3
:

№4
If a=b then a:=a+b
else a:=a-b;
;

№4
If a=b then a:=a+b
else a:=a-b;

begin a: integer;
program a1;
var b: integer;
b:= 21;
writeln (b);
b:=b/3;
writeln (b);
end.
№5

program a1;
var b: integer;
begin
b:= 21;
writeln (b);
b:=b/3;
writeln (b);
end.
№5

a :=3; b := 4;
if a>b then x := a * b else x := a ;
№6
3

№7
a :=4; b := 5; c := 3;
if a>b then x := a + b
else begin
a := b + c; x := a – 3*b
end;
-7

a :=9; b := 8; c := 2;
if (a>b) and (b>c) then x := 2 * a + b + c
else x := a – b + c;
№8
28

FOR k := 1 TO 4 do
Write(k);
№9
1
2
3
4

y := 0;
FOR x := 1 TO 3 do
y := y + 1;
Writeln (y);
3
№10

y := 0;
FOR x := 1 TO 3 do
begin y := y + 1;
Writeln (y);
end;
№11
1
2
3

a :=4; b := 5;
for i:=1 to 10 do
if i mod 2=0 then writeln (i);
Writeln (a);
№11
2
4
6
8
10

НОД(A,B)
- наибольший общий делитель чисел А и В

12
16
6
3
2
2
8
2
2
4
НОД(12,16)=2*2=4
2
2
3
1
1
2

Разложить число на простые множители.
Алгоритм нахождения НОД:
2.Найти общие множители.
3.Найти их произведение.

Вычитайте из большего числа меньшее, пока числа не сравняются, заменяя большее число разностью.
48
18
30
18
12
18
12
6
6
6
НОД(48,18)=6

Условие
Да
Нет
Тело цикла
Блок-схема цикла «Пока»

Общая схема записи цикла с предусловием

А=В
?
Да
Да
В:=В-А
Ввод А, В
Вывод НОД
Нет
A>B
?
Нет
А:=А-В

Если заранее определено число повторений тела цикла, то используем цикл с параметром FOR.
2. Если заранее не определено число повторений, то используем цикл WHILE.
Критерий выбора цикла:

Домашнее задание
Дед Мороз готовит для новогодней елки одинаковые подарки. Во все подарки он разложил 123 апельсина и 82 яблока. Сколько ребят получат подарки? Сколько апельсинов и сколько яблок было в каждом подарке?
Для поездки за город работникам фирмы было выделено несколько автобусов с одинаковым числом мест в каждом. В лес поехали 424 человека, а на озеро 477. Все мета в автобусе были заняты и ни одного человека не осталось без места. Сколько автобусов было выделено и сколько пассажиров было в каждом автобусе?