Ответы
Ответ:
1.program amoeba;
var i,count:integer;
begin
i:=3; //количество часов
count:=1; //количество амеб
while i < = 24 do
begin
count:=count*2; //каждые 3 часа количество амеб удваивается
writeln(i,' hours: ',count); //выводим кол-во часов и амеб
i:=i+3;
end;
readln;
end.
2.program z1;
var x,a,b,c,n:integer; f,f1:text;
begin
write(' vvedite chislo ');
assign (f, 'Digit.dat');
rewrite(f);
readln(x);
writeln(f,x);
close(f);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
if (a < b) and (a < c) then N:=10*b+c else if (a > b) and (b < c) then N:=10*a+c else N:=10*a+b;
assign(f1, 'Digit.sol');
rewrite(f1);
writeln('N=',N);
writeln(f1,N);
close(f1)
end.
3.Запишем таблицу распределения мест по купе:
Купе Места
1 1-4,53,54
2 5-8,51,52
3 9-12,49,50
4 13-16,47,48
5 17-20,45,46
6 21-24,43,44
7 25-28,41,42
8 29-32,39,40
9 33-36,37,38
Установим связь номера места с номером купе. Предлагается следующий (конечно же, не единственный) вариант:
\begin{gathered}\begin {cases} (n-1) \div 4 +1, \quad n=1,2,...,36 \\ (54-n) \div 2 \right \rceil +1, \quad n=37,38,...,54 \end {cases}\end{gathered}
Здесь знаком ÷ обозначена операция целочисленного деления.
Теперь можно написать программу. Язык программирования в задании не указан, поэтому выбран язык свободно распространяемой для целей обучения системы программирования PascalABC.Net
var
n:integer;
begin
Write('Укажите номер места: '); Read(n);
Write('Место располагается в купе №');
if n<=36 then Write((n-1) div 4 + 1)
else Write((54-n) div 2 + 1)
end.