1. Машина. Сколько машин существуют на свете? Оооочень много.
2. Береза. Тот же случай
6. Операционная система. Это не личное название, поэтому оно и общее.
7. Клавиатурный тренажер.
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.
Кол-во цифр вычисляет Счит.Кол-во в цифр
<span>11001 -----------------------------------</span>