1.Створіть програму для обчислення довжини кола та площі круга за введеним радіусом. (Використати функцію pi модуля math) 2. Створіть програму для обчислення площі круга за введеним діаметром. (Використати функцію pi модуля math) 3. Створіть програму для обчислення радіуса кола за введеною довжиною кола.(Використати функцію pi модуля math) 4. Створіть програму для обчислення діаметра кола за введеною площею круга.(Використати функції pi та sqrt модуля math) 5. Створіть програму для обчислення довжини гіпотенузи прямокутного трикутника, за введеними катетами. (Використати функцію hypt модуля math) 6. Створіть програму для обчислення довжини катета прямокутного трикутника, за введеними катетом та гіпотенузою. (Використати функції sqrt та pow модуля math)

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.

Смотри. 1. Ни Климов, ни Ушаков не умеют играть ни на одном музыкальном инструменте. Следовательно, они не учителя музыки. 2.  Учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко. Следовательно, Михеенко не учитель рисования и информатики. 3. Жебин попросил учителя рисования написать картины с его изображением и изображением Климова. Следовательно, Жебин и Климов не учителя рисования. Из этого следует, что учитель рисования - Ушаков. 4. Учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко. Раз учитель рисования Ушаков, а он не знаком с Климовым, значит Климов не учитель информатики, а учитель матеметики. Михеенко - учитель музыки, а Жебин учитель информатики.