Question

Помогите пожалуйста, гении

Answer 1

Ответ:

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.