Циклические программы
1.
Проверим домашнее задание.
Задача 1.
Написать программу, которая будет распечатывать все числа в
промежутке от 20 до 150, которые делятся на число 5.
20, 25, 30 …, 150
Program Vivod;
Var i: integer;
Begin
i: = 20;
While i<=150...
More
Циклические программы
1.
Проверим домашнее задание.
Задача 1.
Написать программу, которая будет распечатывать все числа в
промежутке от 20 до 150, которые делятся на число 5.
20, 25, 30 …, 150
Program Vivod;
Var i: integer;
Begin
i: = 20;
While i<=150 do
Begin
Write (i);
i: = i + 5;
End;
End.
Задача 2.
Написать программу, которая будет распечатывать все числа в
промежутке от 45 до 200, которые делятся на число 8.
48, 56, 64 …, 200
Program Vivod;
Var i: integer;
Begin
i: = 48;
While i<=200 do
Begin
Write (i);
i: = i + 8;
End;
End.
конец
начало
i: = 48
i<=20
0
Вывод i
i := i + 8
конец
начало
i: = 20
i<=15
0
Вывод i
i := i + 5
Less
