Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Тест-форум (http://forum.oszone.net/forumdisplay.php?f=26)
-   -   [Pascal] Вывод чётных чисел (http://forum.oszone.net/showthread.php?t=226709)

Светлана96 31-01-2012 18:58 1848651

[Pascal] Вывод чётных чисел
 
Выведите (через пробел) все четные числа от 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 31-01-2012 19:10 1848668

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

end;
end.

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

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

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

write(i + ' ')
Так они будут выведены в строку, через пробел...

yurfed 31-01-2012 19:52 1848701

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

XPEHOMETP 01-02-2012 11:05 1849113

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

yurfed 01-02-2012 11:31 1849145

XPEHOMETP, судя по этому
Цитата:

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

Delirium 01-02-2012 13:03 1849228

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

BlackDragon 01-02-2012 15:30 1849343

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 02-02-2012 13:35 1850002

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

Delirium 02-02-2012 14:45 1850056

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


Время: 07:06.

Время: 07:06.
© OSzone.net 2001-