Написать программа выводу на экран всех 3 значных чисел,кратных 6 и 4, и заканчивающихся на цифру 8. Программу писать тремя способами с использованием циклов for, while, repeat
Написать программа выводу на экран всех 3 значных чисел,кратных 6 и 4, и заканчивающихся на цифру 8. Программу писать тремя способами с использованием циклов for, while, repeat
Ответ(ы) на вопрос:
Program Help;
Var i : Word;
Begin
(* 1 способ *)
For i := 100 to 999 do
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
Writeln;
(* 2 способ *)
i := 100;
While i < 999 do
Begin
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
End;
Writeln;
(* 3 способ *)
i := 100;
Repeat
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
Until i = 999;
Readln;
End.
Не нашли ответ?
Похожие вопросы