Var
F:integer;
begin
write('F = ');
readln(F);
writeln( 'C = ',5/9 * (F - 32) );
<span>end.</span>
<span>если в Excel, то выделяешь мышкой несколько ЯЧЕЕК любые (например A1 до B1) нажимаешь ПРАВОЙ КНОПКОЙ МЫШИ по ним(ячейкам) ФОРМАТ ЯЧЕЕК а потом в другом ОКНЕ НАЖИМАЕМ ВЫРАВНИВАНИЕ И ТАМ СТАВИМ ГАЛОЧКУ "ОБЪЕДИНЕНИЕ ЯЧЕЕК"</span>
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
890*890=792100 пикселей
4 Кб = 4096 байт = 32768 бит
32768/792100=0,04 бита на пиксели
0,04^2 = 1
вроде так
1445г. изобрел германский ювелир Иоганн Гутенберг.