Данны сторны прямоугольника найти его периметр

пример как делать

дано время в чесах и в минутах выразить его в минутах

var C, A, B:inter;

begin

writeln ('Введите время в часах и в минутах') ;

readln;

C:=A*60+B;

writeln (' время в минутах') ;

readln;

end.

Question

Информатика

Томуня

27 сентября, 10:24

Данны сторны прямоугольника найти его периметр

пример как делать

дано время в чесах и в минутах выразить его в минутах

var C, A, B:inter;

begin

writeln ('Введите время в часах и в минутах') ;

readln;

C:=A*60+B;

writeln (' время в минутах') ;

readln;

end.

+1

Ответы (1)

Знаете ответ?

Станимир · Answer 1

Var a, b, p:integer;

begin

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

readln (a, b) ;

p:=2 * (a+b) ;

writeln ('Периметр прямоугольника = ', p) ;

readln;

end.

Пример:

Введите стороны прямоугольника:

3 5

Периметр прямоугольника = 16