1.
var x,s:integer;
begin
read(x);
s := 0;
while x > 0 do
begin
if x mod 10 < 6 then s := s + 1; {здесь была ошибка}
x := x div 10
end;
write(s)
<span>end.
2.
var x,s:integer;
begin
read(x);
s := x mod 10;
while x > 10 do
x := x div 10;
write(x + s)
<span>end.
3.
var x,a,b:integer;
begin
read(x);
a := x mod 10;
b := x mod 10;
while x > 0 do
begin
if x mod 10 > a then a := x mod 10;
if x mod 10 < b then b := x mod 10;
x := x div 10;
end;
write(a + b)
<span>end.</span></span></span>
<span>512 000*(4*60) = 122 880 000 бит
<span>122880000 / 8 / 1024 = 15 000 килобайт</span></span>
Омонимы:
месяц(календарный) - месяц (видимая часть луны);
закапывать(яму) - закапывать (лекарство в нос, глаза);
наряд(воинское задание) - наряд (одежда, костюм).
Синонимы:
храбрость=отвага, мужество, смелость, решимость, героизм.
хитрый=лукавый, плутоватый, вилявый, изворотливый.
глупый=бестолковый, безмозглый, пустоголовый, недалекий, скудоумный.
2) Мой компьютер (Проводник);
3) Панель управления
Версія на Українському:
2) Мій комп'ютер (Провідник);
<span>3) Панель управління.
Перевод с помощью Google.</span>