Тема: Задача про двох хлопчиків
Два хлопчики одночасно стартували з однієї точки і побіг¬ли — один по колу, а другий по сторонах квадрата. Якщо вважати, що радіус кола може бути лише цілим числом, а π == 3,14 , то при якому найменшому радіусі і при якій стороні квадрата вони знову одночасно зустрінуться в початковій точці?
program zadannja1;
var l,r,p,s1,s2: real;
begin
p:=3.14;
l:=1;
r:=1;
s1:=l*4;
s2:=2*p*r;
repeat
l:=l+1;
r:=r+1;
until
s1=s2;
writeln('Dov}{una kvadrata=',l:6:2);
writeln('Dov}{una radiysa',r:6:2);
readln;
end.
Мені 16 років