Решение на pascal. Могут быть небольшие недочёты =)
Program avtorMaltsevaDY;
var
s, t, v, z :integer;
begin
s:=109;
writeln ('Vvedite vremya');
readln (t);
writeln ('Vvedite scorost');
readln (v);
z:=v*t;
if z>0 then
while z<s do
z:=z-s;
end;
else
while (z>0) and (z<s)
z:=z+s;
Writeln ('Vasya ostanivitsya na otmetke - ', z);
end.
Решение на pascal. Могут быть небольшие недочёты =)
Program avtorMaltsevaDY;
var
s, t, v, z :integer;
begin
s:=109;
writeln ('Vvedite vremya');
readln (t);
writeln ('Vvedite scorost');
readln (v);
z:=v*t;
if z>0 then
while z<s do
z:=z-s;
end;
else
while (z>0) and (z<s)
z:=z+s;
end;
Writeln ('Vasya ostanivitsya na otmetke - ', z);
end.