Question

Составьте задачи в программе Pascal. Заранее спасибо.

Answer 1

Ответ:

1.

program z1;

var a:real;

begin

write ('a = ');

readln (a);

writeln ('P = ',3*a);  

writeln ('r = ',a/(2*sqrt(3)):0:3)

end.

2.

program z2;

var t:integer;

begin

write ('t = ');

readln (t);

writeln ('V = ',200/(t*60):0:3,' м/с')

end.

Объяснение:

$r=\frac{a}{2\sqrt{3} }$

Смотри картинки

Answer 2

Ответ:

program z1;

var a:real;

begin

write ('a = ');

readln (a);

writeln ('P = ',3*a);  

writeln ('r = ',a/(2*sqrt(3)):0:3)

end.

program z2;

var t:integer;

begin

write ('t = ');

readln (t);

writeln ('V = ',200/(t*60):0:3,' м/с')

end.

Объяснение: