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.
Объяснение:
Смотри картинки
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.
Объяснение:
