Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
Получатся числа 16 15 5 4 3 1
Сумма=44
Диск
Камень
Кассета
Книжка
Дискета
Бумага
Флеш
Переваги: більша швидкість інтернету, пінг менше
Недоліки: необхідне додаткове обладнання, кабель
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.