5. Напишите программу, в которой производится вывод вещественного числа и вашего имени. Для вывода именно используйте переменную. 1. ……………………………………………………………………..
2. ……………………………………………………………………..
3. ……………………………………………………………………..

Вариант 1 (если скорость 29 кбайт/сек

1) 50 × 96 = 4800 символов в сообщении которое будем передавать

2) 4800 × 1 байт = 4800 байт информационный объем передаваемого сообщения

3) 29 Кбайт / сек = 29696 байт / сек - скорость передачи данных

4) 4800 / 29696 = 1,62 сек потребуется для передачи сообщения со скоростью 29 Кбайт/сек

Вариант 1 (если скорость 29 кбит/сек

1) 50 × 96 = 4800 символов в сообщении которое будем передавать

2) 4800 × 1 байт = 4800 байт = 38400 бит информационный объем передаваемого сообщения

3) 29 Кбит / сек =  29696 бит / сек - скорость передачи данных

4)  38400 / 29696 = 1,29 сек потребуется для передачи сообщения со скоростью 29 Кбит/сек

Program treug;

var a,b,c,max,min,srd,d:real;

begin

writeln('Введите стороны треугольника');

readln(a,b,c);

If (a+b>c) or (b+c>a) or (a+c>b) then

begin

if (a=b) or (b=c) or (a=c) then write ('Треугольник равнобедренный');

if (a=b) and (b=c) then write ('Треугольник равносторонний');

end;

begin  

Sort(a,b,c,max,min,srd);  

d:=min*min+srd*srd;  

e:=max*max;  

if d>e then writeln('Это остроугольный треугольник!')  

else if d<e then writeln('Это тупоугольный треугольник!')  

else if d=e then writeln('Это прямоугольный треугольник!');  

end;

else writeln ('Такого треугольника не существует');

end.