Определить количество четных отрицательных чисел которые делятся на 3 без остатка

@graf2103 · Регистрация: 15.12.2013

дано 10 целых чисел определить количество четных отрицательных чисел которые деляться на 3 без остатка

@Striker · 27.12.2013, 10:56

~~Ну ооооочень сложная зачётная программа~~.

Pascal

const
  maxN = 10;
 
var
  mas: array[1..maxN] of integer;
  i, col: integer;
 
begin
  col := 0;
  for i := 1 to maxN do
  begin
    read(mas[i]);
    if((mas [i] mod 2 = 0) and (mas[i] < 0) and (mas[i] mod 3 = 0)) then
      inc(col);
  end;
  writeln;
  writeln(col);
end.

@graf2103 0 / 0 / 0 Регистрация: 15.12.2013 Сообщений: 8
		1
	Определить количество четных отрицательных чисел которые делятся на 3 без остатка 27.12.2013, 10:51. Показов 2106. Ответов 1 Метки нет (Все метки) дано 10 целых чисел определить количество четных отрицательных чисел которые деляться на 3 без остатка __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Определить количество четных отрицательных чисел которые делятся на 3 без остатка

Решение