Не а или в или не с- построить таблицу истинности!

Question

Информатика: Не а или в или не с- построить таблицу истинности!

oliaborisova123 · Accepted Answer

1. Современное решение (быстро, просто и легко)
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.

Пример
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833

2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)

uses Crt;
var
n:integer;
x,a:real;
begin
a:=0;
n:=0;
repeat
    Read(x);
    if x>=0 then begin
      n:=n+1;
      a:=a+x
      end
until x<0;
a:=a/n;
Writeln('Ср.арифм: ',a:0:4);
ReadKey
end.

MOGZ ответил