Ответ:
3,6,9,12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75,78,81,84,87,90,93,96,99
Это все ответы для Интернет урока за 8 класс Информатика.
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
readln(n);
if (n=0) then break;
if (n>0) then
s:=s+n;
c:=c+1;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
s:=0;c:=0;
repeat
until (c=0);