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

LilLoco · Конфигурация компьютера

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

Код:

end; 
end.

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

Код:

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

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

Код:

write(i + ' ')

Так они будут выведены в строку, через пробел...

yurfed · Отправлено: **19:52, 31-01-2012** | #3

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

XPEHOMETP · Отправлено: **11:05, 01-02-2012** | #4

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

yurfed · Отправлено: **11:31, 01-02-2012** | #5

XPEHOMETP, судя по этому

Цитата:

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

Это попытка возведения в степень ^2 и ^3 соответственно действиям

Delirium · Отправлено: **13:03, 01-02-2012** | #6

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

BlackDragon · Отправлено: **15:30, 01-02-2012** | #7

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 · Отправлено: **13:35, 02-02-2012** | #8

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

Delirium · Отправлено: **14:45, 02-02-2012** | #9

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