Вводится последовательность из n на интервале…

Question

Вводится последовательность из n на интервале от (1; n). Найти: четное количество чисел. При решении использовать языкПаскаль.

Answer 1

69

barracuda

12 августа 2022

{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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: