Регистрация
ppetrovaa
28.06.2023 19:19
Информатика
Есть ответ 👍

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

210
230
Посмотреть ответы 2

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

dilnaramusaeva
dilnaramusaeva
4,8(4 оценок)
Var x,k: integer;   begin  k: =0;   repeat  writeln('введите число');   read(x);   if (x> 0) and (x< =256) then k: =k+1;   until x=0;   writeln('количество положительных чисел < =256 = ',k);   end.
AlexeyCherkasa
AlexeyCherkasa
4,6(66 оценок)
Является, потому что информацией является все что в твой мозг приходит, и все что из него выходит.

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