1. Нужно составить программу перевода градусов в интервале 15-30 шкалы Цельсия на…

Program Pr1; uses crt; var f,c: real; beginclrscr; c: =15; while c <= 30 do begin f: =c*1,8+32; writeln (c,'-Цельсия; Фаренгейт — ',f); c: =c+1; end; end.2) Program Pr1; uses crt; var stroka: string; i,v,x: integer; Beginclrscr; readln (stroka); x: =0; v: =0; for i: =1 to length (stroka) do begin if stroka[i]<>' then v: =v+1; if (stroka[i]='т') or (stroka[i]='Т') then x: =x+1; end; writeln ('Количество букв- ',v,' Количество букв Т -',x); end.