Question

Приветствую. У меня возникла проблема с домашним заданием.
мне задали д/з написать один код, чтобы паскаль мог вычитать чётные и нечётные числа, но я не много не понимаю информатику, можете помочь?
буду вам благодарен :³​​

Answer 1

Ответ:

program z;

var a,i:integer;

begin

write('введите число: ');

read(a);

if a mod 2 = 0 then writeln('чётное') else writeln('нечётное');

for i:=1 to 5 do

begin

if i<>5 then write(a,', ') else write(a,' и т.д. ');

a:=a+2

end

end.

Объяснение:

вводим число

программа выводит является число чётным или нечётным (в зависимости от условия)
программа выводит 5 последовательных чётных или нечётных чисел начиная с введённого числа