[Pascal] Вывод чётных чисел
Выведите (через пробел) все четные числа от a до b (включительно).
Код:
Program q333; |
Навскидку, не хватает в конце
Код:
end; И вообще, зачем нужно это?: Код:
i2:=i*i; При проверке на "четность", если четное, то выводить на экран, при помощи Код:
write(i + ' ') |
Светлана96, что вам нужно в итоге? Что хотите увидеть в итоге на экране?
Как уже было указано выше - где все переменные? |
Похоже, у автора спрашивать бесполезно, про итог на экране. Судя по написанному ей, она вообще не в курсе, что реально ей нужно и как этого достичь. Пусть хотя бы пояснит, откуда берутся границы a и b - с клавиатуры вводятся? Иначе вообще мрак полный.
|
XPEHOMETP, судя по этому
Цитата:
|
Топикстартеру дается 1 день на ответ в теме. В противном случае тема будет перенесена в тест-форум для ознакомления с правилами. Размышлений нет, вопросов нет, а решать за других мы не будем.
|
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 лет назад |
BlackDragon, надо найти первое чётное и дальше прибавлять двойки
|
Сутки прошли, топикстартер не объявился. Удачи в освоении правил форума.
|
Время: 07:06. |
Время: 07:06.
© OSzone.net 2001-