profile
Опубликовано 6 лет назад по предмету Информатика от missisjuliapl

дан набор ненулевых чисел ,признак его завершения число 0 .вывести сумму всех положительных четных чисел из данного набора. если требуемые числа отсутсвуют вывести то вывести 0

  1. Ответ
    Ответ дан PopCop312
    var a,s:integer;
    begin
    a:=-1;
    while (a<>0) do begin
    read(a);
    if a>0 then s+=a;
    end;
    writeln(s);
    end.
Самые новые вопросы