Регистрация
Malina235
14.08.2021 10:14
Информатика
Есть ответ 👍

Задачи на линейные алгоритмы. составьте программу
нахождения площади равнобедренной трапеции через стороны a,b,c.
Составьте алгоритм и блок-схему

219
428
Посмотреть ответы 1

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

Keneke
Keneke
4,6(65 оценок)

uses crt;

var i,sum,k: integer;

begin

      sum: =0;

      k: =0;

      writeln('вводите числа. 0 - конец последовательности');

      repeat

          read(i);

          if i mod 2=1 then begin

              sum: =sum+i;

              inc(k);

          end;

      until i=0;

      writeln;

      writeln('среднее  арифметическое нечетных чисел: ',sum/k: 5: 3);

end.

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