Вложенные циклы. Задачи на карантин

1.

Вложенные циклы
задачи на карантин

2.

Если телом цикла
является цикл, то такие
циклы называются
вложенными
или «Цикл в цикле»

3.

Цикл, содержащий в себе
другой цикл, называют
внешним, а цикл,
содержащийся в теле другого
цикла, называют
внутренним.

4.

Цикл называется вложенным, если
он находится в теле другого цикла.
for i:=0 to n do
begin
for j:=0 to m do
begin
for k:=0 to w do
begin
end;
end;
end;
Цикл i
Внутренний цикл должен полностью
находиться в теле внешнего цикла.
Цикл j
Цикл k

5.

For i:=1 to 3 do
For j:=1 to 2 do
Writeln(i,j);
For i:=1 to 2 do
For j:=1 to 3 do
Writeln(i,j);
11
12
21
22
31
32
11
12
13
21
22
23

6.

Вывод на экран
таблицы
умножения
1
2
3
4
5
6
7
8
9
10
2
4
6
8
10
12
14
16
18
20
3
6
9
12
15
18
21
24
27
30
4
8
12
16
20
24
28
32
36
40
5
10
15
20
25
30
35
40
45
50
6
12
18
24
30
36
42
48
54
60
7
14
21
28
35
42
49
56
63
70
8
16
24
32
40
48
56
64
72
80
9
18
27
36
45
54
63
72
81
90
10
20
30
40
50
60
70
80
90
100

7.

j
var i, j: integer;
begin
for i:=1 to 10 do
i
begin
for j:=1 to 10 do
write (i * j :5);
writeln;
end;
end.
программа
1
2
3
4
5
6
7
8
9 10
2
4
6
8 10 12 14 16 18 20
3
6
9 12 15 18 21 24 27 30
4
8 12 16 20 24 28 32 36 40
5 10 15 20 25 30 35 40 45 50
6 12 18 24 30 36 42 48 54 60
7 14 21 28 35 42 49 56 63 70
8 16 24 32 40 48 56 64 72 80
9 18 27 36 45 54 63 72 81 90
10 20 30 40 50 60 70 80 90 100

8.

Задача про покупку коров
Сколько можно купить быков, коров и телят, если
бык стоит 10 рублей, корова - 5 рублей, теленок –
0,5 рубля и на 100 рублей надо купить 100
животных.
Решение:
B – количество быков
K - количество коров
T- количество телят.
10b+5k+0,5t=100
b+k+t=100
Преобразуем их:
20b+10k+t=200,
b+k+t=100
На 100 рублей можно купить:
•Не больше 10 быков, 0≤b≤10
•Не больше 20 коров, 0≤k≤20
•Не больше 200 телят, 0≤t≤200

9.

Var b, k, t:integer;
Begin
for b:=0 to 10 do
for k:=0 to 20 do
for t:=0 to 200 do
if (20*b+10*k+t=200) and (b+k+t=100)
then
writeln(‘Быков ',b,' Коров ',k,' Телят ', t);
end.

10.

Задача.
Найти все симметричные четырехзначные
числа сумма цифр которых равна
заданному числу х.
Обозначим, a- первая цифра
b- вторая цифра
c- третья цифра
d – четвертая цифра
• Какое число является симметричным?
a=d и b=c
(например, 2552, 1111)

11.

Найти все симметричные
четырехзначные числа сумма цифр
которых равна заданному числу х.
var x,a,b,c,d,s : integer;
begin
readln (x);
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
begin
S:=a + b + c + d;
If (a=d) and (b=c) and (S=x) then write (a, b, c, d);
end;
end.