Напишите программу которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон

program count;

var a, b, s, p: real;

begin

writeln (‘введите значения длин двух сторон прямоугольника‘ );

readln (a, b);

s : = a * b;

writeln (‘площадь равна ‘, s);

р : = 2 * (a+b);

writeln (‘периметр равен’, р);

end.

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.

переведем 128000бит в кбайты для удобства: 128000бит=128000/8 байт( т.к. в одном байте 8 бит)=16000 байт=16000/1024 кбайт (т.к. в одном кбайте 1024 байт)=15,625 кбайт, следовательно скорость передачи данных равна 15,625 кбайт/с

500кбайт/15,625 кбайт/с=32 секунды займет передача файла

ответ: 32 секунды