Нарисуй в рабочей тетради таблицу по образцу.пронумеруй все столбцы и дополни коды-каждая буква должна - id841163920220207 от илья213123 07.02.2022 21:03

Question

Информатика: Нарисуй в рабочей тетради таблицу по образцу.пронумеруй все столбцы и дополни коды-каждая буква должна быть закодирована трехзначным неповторяющимся кодом,каждый знак которого - это 0 или 1

илья213123 · Accepted Answer

Проверено на Паскаль АВС

Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
    begin
      write("Ввод:") ;
      readln (r);
      sum:=sum+r;
      k:=k+1;
    end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.

MOGZ ответил