Запишите, сколько раз будет выполнен цикл, заданный в программе:
Var s, k:integer;

Begin

S:=1;

for k:=1 to 30 do s:=(k-5)*s;

writeln(s)

end.

Question

Другие предметы: Запишите, сколько раз будет выполнен цикл, заданный в программе: Var s, k:integer; Begin S:=1; for k:=1 to 30 do s:=(k-5)*s; writeln(s) end.

dimass56789 · Accepted Answer

Если равнодействующая сила не равна нулю, тело будет двигаться неравномерно.
Опыт 2. Будем тянуть брусок с помощью нити или динамометра по поверхности стола (на тело действовать сила тяжести Fтяж = mg, сила реакции опоры N, сила тяги F и сила трения Fтер).
Если N = Fтяж, а сила тяги F будет больше силы трения Fтер, то тело будет двигаться неравномерно (скорость тела будет увеличиваться со временем).
Опыт 3. толкнет брусок так, чтобы он двигался по поверхности стола (на него будут действовать сила тяжести Fтяж, сила реакции опоры N и сила трения Fтер, поскольку N = Fтяж, то они компенсируют друг друга, и влиять на движение бруска будет только сила трения Fтер) брусок со временем остановится (сила трения всегда направлена против движения).

Запишите, сколько раз будет выполнен цикл, заданный в программе: Var s, k:integer; Begin S:=1; for k:=1 to 30 do s:=(k-5)*s; writeln(s) end.

MOGZ ответил

Запишите, сколько раз будет выполнен цикл, заданный в программе:
Var s, k:integer;

Begin

S:=1;

for k:=1 to 30 do s:=(k-5)*s;

writeln(s)

end.