Linux
...............
Линикс
Используем правила деМоргана и др:
=(А+В+С)•~А•~В•~С=А•~А•~В•~С+~А•В•~В•~С+~А•~•ѕ~С=0
(А•~А=0 и т.п)
1. While:
var a,i,s:integer;
begin
s:=0;
i:=0;
while i<10 do
begin
i:=i+1;
write('a = ');
readln(a);
s:=s+a;
end;
writeln('Среднее арифметическое = ',s/10);
end.
2. Repeat
var a,i,s:integer;
begin
s:=0;
i:=0;
repeat
i:=i+1;
write('a = ');
readln(a);
s:=s+a;
until i=10;
writeln('Среднее арифметическое = ',s/10);
end.
3. For:
var a,i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('a = ');
readln(a);
s:=s+a;
end;
writeln('Среднее арифметическое = ',s/10);
end.
Пример:
a = 4
a = 6
a = 9
a = 7
a = 1
a = 3
a = 6
a = 5
a = 4
a = 8
Среднее арифметическое = 5.3