Если тело просто падает то так: const g = 9.81; var v, n: real; begin write('Введите высоту башни n: '); readln(n); v := sqrt(2 * g * n); writeln; write('Скорость тела: ', v:0:2, ' м/с') end.
// PascalABC.NET 3.0, сборка 1128 procedure AllMake(p:array of integer; var avg:real); begin avg:=p.Average; for var i:=0 to p.Length-1 do if p[i]<avg then p[i]*=10 end;
begin var n:=ReadInteger('Количество элементов в массиве:'); var a:=ArrRandom(n,1,50); Writeln('Исходный массив'); a.Println; var av:real; AllMake(a,av); Writeln('Среднее арифметическое равно ',av); Writeln('Результирующий массив'); a.Println; WriteAllText('out.txt',a.JoinIntoString) end.
Var a,b,sek_m,sek_l:integer; begin writeln('на каком этаже живёт Миша?'); readln(a); writeln('на каком этаже находится лифт?'); readln(b); writeln('за сколько секунд Миша поднимается на этаж?'); readln(sek_m); writeln('за сколько секунд лифт поднимается на этаж?'); readln(sek_l); sek_m:=sek_m*a-sek_m; writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.'); sek_l:=(sek_l*b+sek_l*a)-sek_l; writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.'); if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени') else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому') else writeln('Мише быстрее подняться на лифте'); end.
const g = 9.81;
var v, n: real;
begin write('Введите высоту башни n: ');
readln(n);
v := sqrt(2 * g * n);
writeln;
write('Скорость тела: ', v:0:2, ' м/с') end.