var i:integer;
p:int64;
begin
p:=1;
for i:=1 to 100 do if i mod 10 = 5 then p:=p*i;
writeln(p);
end.
Чтобы знайти t нужно t =u/I
и того t=64 секунды
Разделим выражение ((r/2) - (k/2)) на действия:
1. (r/2) = 13.0f / 2 = 6.5f (Приведение типов)
2. (k/2) = 6(Целое на целое)
3. 6.5f - 6.f = 0.5f = 0.5
Ответ: 0.5