<span><span>var z,a,s:integer;
begin
readln(z)
a:=z mod 10;
z:=z div 10;
s:=0;
while (z>0) and (s=0) do
if z mod 10<>a then s:=1
else z:=z div 10;
if s=0 then write ('yes')
else write('no');
end<span>.</span></span></span>
Пусть объем жесткого диска 160Гб
160Гб = 160 * 1024 * 1024 * 1024 байт = 171 798 691 840 байт
Вес одного символа 8 бит = 1 байт
Вес страницы = 40 * 60 * 1 байт = 2400 байт
Кол-во страниц = 171 798 691 840 / 2400 = 71582788
Округляем в меньшую сторону, ведь страниц может быть только целое кол-во
Высота = 223 696 213 / 100 = 715827.88cm = 7158.2788m
Var s:array[1..100]:string;
i:integer;
begin
write('введите слово);
read(s);
for i:=1 to lenght(s) do
if s[i]+s[i+1]+s[i+2] = 'рак' then
writeln('da') else writeln('net')
end.
Это программа или техническое средство, выполняющее трансляцию программы
Шаг 1) 1*3=3
Шаг 2) 3*3=9
Шаг 3) 9-1=8
Шаг 4) 8*3=24
Шаг 5) 24-1=23
Ответ: 11212