ПОМОГИТЕ НАПИСАТЬ ХОТЯ БЫ ОДНУ ЗАДАЧУ НА Pascal ОНИ НЕ СЛОЖНЫЕ…

ПОМОГИТЕ НАПИСАТЬ ХОТЯ БЫ ОДНУ ЗАДАЧУ НА Pascal ОНИ НЕ СЛОЖНЫЕ, А Я ДАЮ МНОГО ПУНКТОВ! За 2 лучший ответ! Без плагиата! 1. Написатьпрограмму, используя оператор цикла While, которая будет вводить целые положительные числа не превышающие 100. Найти сумму квадратов чисел 2. Написать программу используя оператор цикла Repeat, которая будет вводить целые числа до тех пор пока не будет введен 0. Подсчитать среднее арифметическое введенных чисел.

в избранное

aleks-77

30 августа 2022

var k: int64; c: integer; begin k: =0; while not eoln dobegin read (c); k: =k+sqr (c); end; writeln (k); end. var count, c, sum: integer; begin count: =0; sum: =0; c: =0; repeat read (c); sum: =sum+c; inc (count); until c=0; if count > 0 then writeln (sum / (count — 1) else writeln ('Невозможно делить на 0'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?