Помогите пожалуйста Написать программу, которая суммирует N отрицательных четных чисел из вводимых с клавиатуры чисел, при вводе N=0 выход из программы.

2

Ответы и объяснения

  • Artem112
  • Ведущий Модератор
2013-05-31T16:45:17+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

CLS

b:

INPUT n

IF n<0 OR INT(n)<>n THEN GOTO b

IF n=0 THEN END

DIM a(n)

FOR i = 1 TO n

a:

INPUT a(n)

IF a(n) >= 0 OR INT (a(n)/2)<>(a(n)/2) THEN GOTO a

s=s+a(n)

NEXT i

PRINT s

2013-05-31T19:23:48+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program ilnur17;
uses crt;
var
  n,sum,temp: integer;
begin
  write('Введите число ');
  readln(n);
  if n<>0 then
    begin
      sum:=0;
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      while n>=1 do
        begin
          write('Введите следующее число ');
          readln(temp);
          if (temp<0) and (temp mod 2 = 0 ) then
            sum := sum + temp;
          n:=n-1
        end;
    end
  else
    writeln('Вы ввели 0 - выход из программы');
  writeln('Cуммa отрицательных четных чисел равна ',sum);
end.