Размещено 4 года назад по предмету
Информатика
от Аккаунт удален
Free Pascal,программа для расчёта колебаний математического маятника,где ошибся я?
program uiuiu;
var T,p,L,g:integer;
begin
write('Введите длину L');
readln (L);
p:=3.14;
g:=9.81;
T:=2*p*sqrt(L/g);
writeln('T=';T);
end.