Program prim;
uses crt;
var
result,s1,s2,s3,s4,s5:string;
begin
clrscr;
textbackground(41);
s1:='<span>Форматирование</span>';
s2:=s1[1]+s1[2]+s1[3]+s1[4]+s1[5];
s3:=s1[7]+s1[8]+s1[9];
s4:=s1[10]+s1[5]+s1[6]+s1[11];
s5:=s1[6]+s1[14]+s1[4]+s1[5];
writeln(s2);
writeln(s3);
writeln(s4);writeln(s5);
readln;
end.
Двоичная 111010
Восьмеричная 72
Шестнадцатеричная 3А
А теперь скажи мне какой это класс?
Var
n:Integer;
Begin
Writeln('Введите в градусах Цельсия');
Read(n);
Writeln('В Фаренгейтах это = ',(n*9/5)+32:0:1);
end.
Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ