Question

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

Answer 1

var i:byte;
begin
for i:=8 to 32 do begin
if (i mod 2)=0 then writeln(i);
end;  
end.

Answer 2

Ещё один способ:

Answer 3

var i:integer;
begin
i:=6;
while not(i=32) do begin i:=i+2; writeln(i); end;
end.

Answer 4

четные числа:
var 
  a, b, s: integer;
begin
  read (a, b);
  for i := a to b do
  if i mod 2=0 then
    write (i, ` `);
end.

Answer 5

Ееее бооой у меня правильнее)))

Answer 6

Мой алгоритм меньше памяти засоряет

Answer 7

Да, твоя прога не в столбик числа записывает