Сделайте программу, которая переводит значение температуры из градусов по шкале цельсия в градусы по шкале фаренгейта. напишите на pascal

Var n: integer; begin   writeln('введите в градусах цельсия');   read(n);   writeln('в фаренгейтах это = ',(n*9/5)+32: 0: 1); end.

Program  crazycoder; var i,n: byte; k: integer; a: array [1..10] of integer; begin           randomize;       writeln('исходный массив');       for i: =1 to 10 do           begin               a[i]: =random(21)-10;               write(a[i],' ');           end;       writeln;       write('введите кол-во смещений: ');       read(n);       repeat             k: =a[2];             for i: =2 to 9 do                 a[i]: =a[i+1];             a[10]: =k;             n: =n-1;       until n=0;       writeln('результат: ');       for i: =1 to 10 do           write(a[i],' ');       writeln; end .

мальчик высаживает второго мальчика на втором берегу, сам отправляется на первый. там, он выходит из лодки и сажает вместо себя солдата. солдат перемещается на второй берег и выходит. "за руль" садится мальчик и плывет к 1ому берегу, берет 2ого пацана и они оба "едут" на второй берег. там один мальчик выходит. 2ой отправляется на первый берег меняется местами со вторым солдатом и солдат плывет на второй берег. там второй пацан садится в лодку и плывет на первый берег за другом. результат: бойцы переправились, а мальчики снова катаются.

 

удачи..