Входные данные Вводятся целые числа a и b. Гарантируется, что a не превосходит b Выходные...

Question

Входные данные
Вводятся целые числа a и b. Гарантируется, что a не превосходит b

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

Примеры
входные данные
2
5
выходные данные
2 4

Answer 1

Var
a:array[1..100] of integer;
b, c, i: integer;
begin
read(b); read(c);
for i:=b to c do   begin
a[i]:=i;
if a[i] mod 2=0 then 
writeln(a[i], ' ');   end;
end. 

Comments

я малёк сократила и добавила кое что,что бы под нашу школьную програму подходила.

---

Но все равно спасибо тебе большое

---

пожалуйста :3

---

интереса ради, скинешь свою программу?

---

program problem_predymaute;
var
b,c,i:longint;
BEGIN
read(b,c);
for i:=b to c do
if i mod 2=0 then
write (i,' ');
END.

---

если возьмешь longint, будет расходоваться больше памяти компьютера, а это уже нерациональное использование памяти, за что снимают баллы х)

---

совсем чуток отличается

---

а в названии переменных особо разницы не вижу)

---

ясно, спасибо за совет буду знать :)