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

290

367

Посмотреть ответы 3

Ответы на вопрос:

ALEXAND2033

Информатика

4,8(46 оценок)

cls

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

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

Tbdtbd

Информатика

4,7(81 оценок)

program ilnur17; uses crt; var n,sum,temp: integer; begin write('введите число '); readln(n); if n< > 0 then begin sum: =0; writeln('*** alphaues is ***'); 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.