Предмет: Информатика,
автор: aslambecova
Найдите все натуральные числа на промежутке от 1 до 200, которые делятся на 3 в паскале
Ответы
Автор ответа:
0
Var i:integer;
begin
For i:=1 to 200 do
If i mod 3 = 0 then write(i,' ');
end.
begin
For i:=1 to 200 do
If i mod 3 = 0 then write(i,' ');
end.
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
Range(3,200,3).Println
end.
Результат
3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117 120 123 126 129 132 135 138 141 144 147 150 153 156 159 162 165 168 171 174 177 180 183 186 189 192 195 198
begin
Range(3,200,3).Println
end.
Результат
3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117 120 123 126 129 132 135 138 141 144 147 150 153 156 159 162 165 168 171 174 177 180 183 186 189 192 195 198
Похожие вопросы
Предмет: История,
автор: serdukdo20
Предмет: Геометрия,
автор: ekaterina1476
Предмет: Биология,
автор: iiiiiiioio
Предмет: Математика,
автор: DilaraNyashka2013
Предмет: Математика,
автор: Roзочка