program area;
var
a:integer; // сторона а
b:integer; // сторона b
S:integer; // площадь прямоугольника
P:integer; // периметр прямоугольника
begin
write("Введите а: "); // выводим сообщение
readln(a); // получаем значение а
write("Введите b: "); // выводим сообщение
readln(b); // получаем значение b
S:=a*b; // вычисляем площадь
P:=a*2+b*2; // вычисляем периметр
write("Площадь равна:", S); // выводим сообщение
write("Периметр равен:", P); // выводим сообщение
end.

0 0

4 года назад

Сколько секунд потребуется модему, передающему сообщения со скоростью 128000 бит/с, чтобы передать сообщение объёмом 241 Кбайт?

oleglzv [28]

1 кбайт=8000 бит, сл. вес сообщения=1928000 бит
1928000\128000=15.0625 сек

0 0

4 года назад

Нарисовать снеговика(радиус головы 40,туловища-70,низа-100;пуговицы и рот лежат на одной прямой руки на одном уровне,касаются с

Дмитрий Эдуардович [2]

Ну я даже не знаю... Берешь циркуль и рисуешь круг диаметром 40, еще круг диаметром 140, и еще круг 200 диаметром ну и руки с ртом на одной линии!

0 0

4 года назад