67 = 1000011 переводит надо делением на 2 столбиком и записывать остаток
Вопрос 1 - 0
Вопрос 2 - 1
Вопрос 3 - 0
Вопрос 4 - 5
Вопрос 5 - 0
Вопрос 6 - 4
Вопрос 7 - 3
Вопрос 8 - 12
Вопрос 9 - 0 mod 5 , 7 mod 7 , 3 div 5.
Вопрос 10 - 1 mod 3 , 5 div 3 , 9 mod 4.
)напиши куда слово встовлять(вначало, вконец, посередине...);
<span>program z2; </span>
<span>var s,s1:string; </span>
<span>a:integer; </span>
<span>begin </span>
<span>write('Введите слово: ');read(s1); </span>
<span>write('Введите строку: ');read(s); </span>
<span>s:=s+' '; </span>
<span>a:=length(s); </span>
<span>writeln(a); </span>
<span>insert(s1,s,a+1); </span>
<span>writeln('Преобразованная строка: ',s); </span>
<span>end. </span>
<span>2) </span>
<span>program z1; </span>
<span>var s:string; </span>
<span>i,kol:integer; </span>
<span>begin </span>
<span>writeln('Введите строку'); </span>
<span>read(s); </span>
<span>kol:=0; </span>
<span>for i:=1 to length(s) do </span>
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol);
writeln(Kol);
end.
По сути, решается уравнение
7х-6у=6
Решение только одно.
6 раз вперед 7
7 раз назад 6
Дано:
V = 125 Кбайт
N = 16
Найти: Ширину x Высоту ( X и Y)
1) V = x * y * i
<span><span> </span>125 Кбайт = x * y * i</span>
Переведем 125 Кбайт в биты = 125 * 1024 * 8 = 1024 000 Бит
1024 000 = x * y * i
<span>2) <span>N = 2i</span></span>
<span> 16 = 24</span>
i = 4
<span>3) 1024 000 = x * y * 4</span>
x * y = 1024 000 : 4
x * y = 256 000 (Получается, что высоту умножить на ширину)
Отсюда разрешение 640 x 400 = 256 000
<span>Ответ: 640 x 400</span>