12 lines
218 B
ObjectPascal
12 lines
218 B
ObjectPascal
// Цикл while. Вывод чисел с шагом 3
|
||
const n = 60;
|
||
|
||
begin
|
||
writeln('Числа от 1 до ',n,', кратные 3');
|
||
var x := 3;
|
||
while x<=n do
|
||
begin
|
||
write(x,' ');
|
||
x += 3;
|
||
end;
|
||
end. |