8 июля, 03:07

Проблема та-же но осталось всего 1 задание (остальные 4 сделал сам) прошу помощи вот само задание: Напишите программу которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел, не превосходящих 256. Программа получает на вход целые числа, количество которых неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность).

+3
Ответы (1)
  1. 8 июля, 03:53
    0
    Var a, n: integer; s:longint;

    begin

    s:=0;

    n:=0;

    readln (a);

    while a0 do begin

    n:=n + 1;

    if (a mod 2=0) and (a>0) and (a<=256) then s:=s+a;

    readln (a);

    end;

    writeln (n);

    writeln (s)

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Проблема та-же но осталось всего 1 задание (остальные 4 сделал сам) прошу помощи вот само задание: Напишите программу которая в ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы