Задать вопрос
7 сентября, 00:21

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

+5
Ответы (1)
  1. 7 сентября, 01:28
    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 сделал сам) прошу помощи вот само задание: Напишите программу которая в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы