pascalabcnet/InstallerSamples/!Tutorial/06_ForWhileRepeat/while1.pas

// Цикл while. Вывод чисел с шагом 3
const n = 60;

begin
  writeln('Числа от 1 до ',n,', кратные 3');
  var x := 3;
  while x<=n do
  begin
    write(x,' ');
    x += 3;
  end;
end.
-												change encoding for all *.pas and *.cs files: cp1251 -> utf-8

											
										
										
											2015-12-28 14:25:15 +03:00
+								// Цикл while. Вывод чисел с шагом 3
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								const n = 60;
 								begin
-												change encoding for all *.pas and *.cs files: cp1251 -> utf-8

											
										
										
											2015-12-28 14:25:15 +03:00
+								  writeln('Числа от 1 до ',n,', кратные 3');
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								  var x := 3;
 								  while x<=n do
 								  begin
 								    write(x,' ');
 								    x += 3;
 								  end;
 								end.