Рабочий стол)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Степень соответствия нанесенного оптическогосимвола предъявляемым к нему требованиям<span>, </span>например<span>, </span>к размерам<span>, </span>коэффициентам отражения<span>, </span>неровности границ<span>, </span>наличию пятен<span>, </span>пропусков и т.д<span>., </span>которые могут повлиять на эффективную работусканера<span>.</span>
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.