1.y=m1*m2/Sqr(r)
2. Program my;
var S,a,b,h:real;
begin
write('Введите длины оснований и высоты');
readln(a,b,h);
S:=(a+b)*h/2;
readln(S);
end.
3. Program my;
var a:integer;
begin
writeln('Введите трехзначное число');
readln(a);
If (a mod 10=7) then write('Данное число заканчивается на 7');
else write('Данное число не заканчивается на 7');
end.
4.Program my;
var a,b,:integer;
begin
readln(a,b);
If (a>b) then writeln(Sqr(a), b+10);
If (a=b) then writeln('Числа равны');
If (a<b) then writeln(Sqr(b), a+10);
end.
5.
Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.
Вариант 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 Кбит/сек
Программа на Паскале прилагается.