Регистрация
zhelavskaitanya
14.01.2020 23:16
Информатика
Есть ответ 👍

Склавиатура вводиться последовательность целых чисел. число 0 служит признаком конца последовательности. найти: сумму чётных чисел последовательности

253
345
Посмотреть ответы 2

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

volgaslob
volgaslob
4,4(65 оценок)

program raf105;

var a,b: integer;

begin

writeln('вводите числа по очереди');

writeln('чтобы закончить введите 0');

a: =1;

while a< > 0 do

begin

readln(a);

if (a mod 2) = 0

  then b: = b+a;

end;

writeln('сумма чётных чисел: ',b);

end.

программа написана на языке pascalabc.net

fanfa
fanfa
4,6(82 оценок)
Const n=10; var a: array[1..n] of integer; max,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(51);   write(a[i],' ');   end; writeln; max: =a[1]; for i: =2 to n do   if a[i]> max then max: =a[i]; writeln('max = ',max); for i: =1 to n do   if i mod 2=1 then a[i]: =max; for i: =1 to n do write(a[i],' '); writeln; end. пример: 17 25 32 37 31 46 12 22 29 7max = 4646 25 46 37 46 46 46 22 46 7

Популярно: Информатика