Слова советую на транскрипт перевести :)) Запуск программы ctrl + f9 дабы потом зазырить пипнуть alt + f5

З.Ы. Так как массы нету, используем формулы механики, S=vt где S расстояние v скорость t время, v=at где а ускорение, нам известны a и S
так как есть ускорение скорость движения меняетсО, а значит нам нужна средняя скорость то биш v0 + v / 2 так как начальная скорость равна 0 получаем v/2 итого получаем S = at^2/2 или 1/t^2= a/2s ну или собственно t = корню из 2s/a.
Проверяем: Высота 40м Время паденя 2.8571428571429 секунды, значит конечная скорость равна 9.8 * 2.8571428571429c. примерно 28 м/с а значит средняя скорость 14 м/с и расстояние равняетсО 14 * 2.8571428571429c. = 40
З.Ы.Ы сам в шоке

Добавлено (2007-12-29, 4:29 Pm)
---------------------------------------------
можете мну написать все с формулой а то я чет не оч сообразил что мну написали )))

З.Ы. ПЛИЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗ

но если надо воть двоешниГ:
Program Stone;
uses Crt;
var a: real;
begin
ClrScr;
Write('Введите высоту в метрах:');
Read(a);
ClrScr;
a:= a / 9.8; -ДВОЙКА ЗА ЭТУ ФОРМУЛУ
if a < 1 then
Write('Время падения камня меньше 1-й секунды')
else
Write('Время падения камня: ', a, ' сек.');
end.

З.Ы. У тебя физичка ОРК? :))))

Алгоритм:
# описать константы;
# описать переменные;
# ввести значение высоты h;
# вычислить время падения t;
# вывести результат на экран.

Листинг программы:

program Crunch-Galileo; {вычисление времени падения по формуле Кранча-Галилея}

uses WinCrt;
const
g = 9.8;
var
h,t:real;
begin
write(Введите высоту h в метрах: ');
readln(h);
t:=sqrt(2*h/g);
writeln('Время падения по Кранчу-Галилею: ',t:3:1, 'секунд');
end.

всё то-же самое, что и у Кранчштеина но как говорится - повторение мать учения

Добавлено (2007-12-30, 8:57 Pm)
---------------------------------------------
вот еще одна задачка которую я немогу решить :

 Даны натуральные числа n, a1,…,an, где n≤5000. Найти члены ak последовательности a1,…,an, кратные 3 и не кратные 5, и определить их количество.

Добавлено (2007-12-30, 8:59 Pm)
---------------------------------------------
да кст всех с наступающим [color=red]НОВЫМ ГОДОМ

for i:=nach to konez do begin
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+1;
end;

Writeln;
Writeln('Summa chisel kratnix 3 i nekratnix 5 = ',sum);
Readln;
end.

Строку Writeln('Summa chisel kratnix 3 i nekratnix 5 = ',sum);

надо пепеписать так Writeln('Kolichestvo chisel kratnix 3 i nekratnix 5 = ',sum);