Дана ненулевая последовательность целых чисел, заканчивающаяся нулем. Вывести на экран все числа
этой последовательности, которые больше нуля и
делятся на 3.
Program posledovat;
Var a:integer;
Begin
Writeln (‘введите первый член последовательности’);
Readeln (a);
Repeat
If (a>0) and (a mod 3 =0) then
Writeln (a)
Until a=0;
end.

Naychpok    1   14.11.2020 03:53    2