Задание 3.7
//Pascal
var i,n,k:integer;
begin
n:=24;
k:=1;
//количество амеб через
//цикл for
for i:=1 to n div 3 do begin
k:=k*2;
writeln('Время :',i*3,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл while
i:=0;
k:=1;
while i<n do begin
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл Repeat
i:=0;
k:=1;
repeat
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
until i=n
end.
Задание 3.8
var
k,b,t:integer;
begin
for b:=1 to 10 do
for k:=1 to 20 do
for t:=1 to 200 do
if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.
19 с индексом 10 означает , что 19 - в десятичной системе счисления , ну т.е наша обычная (0,1,2,3....9) . А 10011 с индексом 2 , это тоже 19 но уже в двоичной системе счисления.
При столбцовой перестановке главное - это угадать количество столбцов. Их может быть от двух до половины символов в тексте. В этом случае полезно начать с выделения слова и решения полученной анаграммы.
Например, анаграмма ИПКСОЕ не дает осмысленного слова а русском языке. Укоротим ее на одну букву. ИПКСО - анаграмма слова ПОИСК. Логично предположить, что количество столбцов равно 5.
31542 - порядок столбцов
ИПКСО
Е_ТСМ
НАЧИ_
ОЕН_Г
ДЕЛА
После перестановки:
ПОИСК
МЕСТ
А НИЧ
ЕГО Н
Е ДАЛ
Результат: "ПОИСК МЕСТА НИЧЕГО НЕ ДАЛ"
<span>Program Сhisla;</span>
<span>var</span>
<span>a, s, n: integer;</span>
<span>Begin</span>
<span>s:=0;</span>
For n:= 1 to 20 do begin
Write (' Введите число А=');
<span>read (a,);</span>
<span>s:= s + a;</span>
end;
<span>write ('Сумма 20 чисел пользователя = ', s);</span>
<span>End.</span>