Напечатайте в столбик четные числа от 8 до 32 в паскале,пожалуйста

Напечатайте в столбик четные числа от 8 до 32 в паскале,пожалуйста помогите , очень безотлагательно

Задать свой вопрос
2 ответа
Var i:byte;
begin
for i:=8 to 32 do begin
if (i mod 2)=0 then writeln(i);
end;  
end.
Олег Рекорд
Ещё один метод:
Лидия
var i:integer;begini:=6;while not(i=32) do begin i:=i+2; writeln(i); end;end.
Четные числа:
var 
  a, b, s: integer;
begin
  read (a, b);
  for i := a to b do
  if i mod 2=0 then
    write (i, );
end.
Люда
Ееее бооой у меня правильнее)))
Галка Демаева
Мой метод меньше памяти засоряет
Stepa Evlantev
Да, твоя прога не в столбик числа записывает
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт