Просмотр задания
Здравствуйте. Помогите пожалуйста решить. В программу вводится пять чисел, определить, сколько из них является четными, а сколько нечетными?
Гость
17 декабря 2015
Ответы (1)
Информатик БУ # 17 декабря 2015 в 12:36 0
Код PASCAL:
  1. var
  2. a, s, i: integer;
  3. begin
  4.   s:=0;
  5.   for i:=1 to 5 do
  6.   begin
  7.     readln(a);
  8.     if a mod 2 = 0 then
  9.       inc(s);
  10.   end;
  11.   writeln('Четных: ', s, ' Не четных: ', 5-s);
  12. end.
Ответить
Перевести число из в Результат: 510 = 1012