Var
n:Integer;
Begin
Writeln('Введите в градусах Цельсия');
Read(n);
Writeln('В Фаренгейтах это = ',(n*9/5)+32:0:1);
end.
13 в 10-ой = 1101 в 2-ой.
Запишем в 16 разрядной ячейке:
Первый разряд ячейки отводим под знак числа. Число положительное, значит записываем 0.
0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1
Var x1,x2,y,p:integer;
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
<span>end.</span>
<span>что вечно тормозит и тупит?</span>