Задание:
Вводится последовательность из n на интервале от (1; n). Найти: четное количество чисел. При решении использовать языкПаскаль.
Решение:
{1 ый вариант}varx,i,n: integer; beginwrite ('n='); read (n); for i: =1 to n do if odd (i)=false then x: =x+1; writeln ('Четных чисел: ',x); end.{2 ой вариант}varx,i,n: integer; beginwrite ('n='); read (n); for i: =1 to n do if i mod 2=0 then x: =x+1; writeln ('Четных чисел: ',x); end.
Знаете другой ответ?