[Pascal] Вывод чётных чисел

[Светлана96]

Выведите (через пробел) все четные числа от a до b (включительно).

Program q333;
var i:integer;
begin
for i:=a to b do begin
if i mod 2=1 then begin
i2:=i*i;
i3:=i2*i;
writeln(i:4,i2:4,i3:4);
end;

[LilLoco]

Навскидку, не хватает в конце

end;
end.

Так же не объявлены переменные a, b, i2, i3.
И вообще, зачем нужно это?:

i2:=i*i;
i3:=i2*i;

Вам нужны четные числа, значит остаток должен быть равен 0, у вас же - 1.
При проверке на "четность", если четное, то выводить на экран, при помощи write(i + ' ')Так они будут выведены в строку, через пробел...

[yurfed]

Светлана96, что вам нужно в итоге? Что хотите увидеть в итоге на экране?
Как уже было указано выше - где все переменные?

[XPEHOMETP]

Похоже, у автора спрашивать бесполезно, про итог на экране. Судя по написанному ей, она вообще не в курсе, что реально ей нужно и как этого достичь. Пусть хотя бы пояснит, откуда берутся границы a и b - с клавиатуры вводятся? Иначе вообще мрак полный.

[yurfed]

XPEHOMETP, судя по этому
i2:=i*i;
i3:=i2*i;
Это попытка возведения в степень ^2 и ^3 соответственно действиям:)

[Delirium]

Топикстартеру дается 1 день на ответ в теме. В противном случае тема будет перенесена в тест-форум для ознакомления с правилами. Размышлений нет, вопросов нет, а решать за других мы не будем.

[BlackDragon]

Program q333;
var i,a,b:integer;
begin
for i:=a to 100 do begin
if i mod 2=0 then write(i);
Readln;
end;

mod - остаток от деления. Если он равен нулю при делении на 2 - то число четное, если не равен нулю - нечетное.
p.s. Если в чем-то ошибся просьба сильно не бить, последний раз писал на паскале больше 10 лет назад

[Busla]

BlackDragon, надо найти первое чётное и дальше прибавлять двойки

[Delirium]

Сутки прошли, топикстартер не объявился. Удачи в освоении правил форума.