Program enot;
var a:array [1..10] of integer;
i,h:integer;
begin
h:=0;
for i:= 1 to 10 do
a[i]:=random(100);
for i:=1 to 10 do
if a[i] mod 5=0 then
h:=h+1;
writeln(h);
<span>end.</span>
Можно так:
1. В помещение
2. На улице
3. В транспорте
4. Подземные
5. Смешанные
Или так:
1. Хорошие (водители)
2. Тяжелые условия (шахтеры)
3. Отличные (офисные рабочие)
ну это так набросок, а ты сам дополни
Чтобы:звонить родным,общаться,играть в мобильные игры,читать новости,проверять информацию
110 из 2 в 10 = 6
100 из 8 в 10 = 64
101 из 16 в 10 = 257
257+64+6=327
Ответ: 327
(Лучший ответ)