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

0 голосов
414 просмотров

Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое трёхзначных чисел или сообщает, что таких чисел нет (выводит NO). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 undefined признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести среднее арифметическое трёхзначных чисел или вывести «NO», если таких чисел нет. расписать программу в Паскаль abc


Информатика (56 баллов) | 414 просмотров
Дан 1 ответ
0 голосов

//название
var
  sum, n, count: longint;
begin
repeat
readln (n);
if n in [100..999] then
begin
inc (sum, n);
inc (count);
end;
until n=0;
if count = 0 then write ('No') else write (sum/count);
end.


(3.8k баллов)
0

Задачи то публикуются "однотипные", так что пишут руки, а не голова.

0

А-а, я то подумал, что Вы меня в ПЛАГИАТЕ обвиняете!!!! (нет)