Длины сторон 1 прямоуг а и б, его площадь в 6 раз меньше площади 2 прямоугольника. Найти длину стороны 2 прямоуг, если длина 1 из его сторон = 6

program ab;

ver a, b, c, d : integer

begin

writeln ... Помогите решить

Question

Радомира

26 января, 10:57

+1

Ответы (2)

Знаете ответ на вопрос?

Станимир · Answer 1

Program ab;

var a, b, c, d, s: integer;

begin

c : = 6;

readln (a, b) ;

s : = 6 * a * b;

d : = s div c;

write (d) ;

end.

Павлик · Answer 2

Var

a, b, c, d, pr1, pr2:longint;

begin

read (a, b, c) ;

pr1:=a*b;

pr2:=pr1*6;

d:=pr2/6;

write (d) ;

end.