Построит таблицы истинности

Question

Информатика: Построит таблицы истинности

inga20062 · Accepted Answer

Cvar
f: Text;
k: integer;
s, p: longint;
i: integer;

begin
Assign(f, 'output.dat');
Rewrite(f);
writeln('Вводите данные, окончание число 7777');
repeat
    read(k);
    if k<>7777 then writeln(f,k)
    until k=7777;
Close(f);
Reset(f);
s := 0;
p := 1;
writeln;
while not Eof(f) do
begin
    readln(f, k);
    write(k:4);
    s := s + k;
    if k <> 0 then p := p * k
end;
Close(f);
writeln;
writeln('Сумма= ', s, ', произведение= ', p)
end.

Вводите данные, окончание число 7777
3
6
-4
6
2
-3
-4
2
6
0
5
-1
7777

   3   6 -4   6   2 -3 -4   2   6   0   5 -1
Сумма= 18, произведение= 622080

MOGZ ответил