program abc;
var a,b,l:int64;
begin
assign(input,'snail.in');
assign(output,'snail.out');
readLn(a,b,l);
if (l div (a+b)) mod 2 = 0 then if (l mod (a+b))-a<0 then writeLn('BOTTOM') else writeLn('RIGHT')
else if (l mod (a+b))-a<0 then writeLn('TOP') else writeLn('LEFT')
end.
Компьютерная графика- моделирование картинки в 3D. Используется при монтаже видио, в фильмах и мультах
Решение заданиий 2 и 3 - в файлах.
For I in massiv do
Begin
If I mod 2 =0
Then
Write(i,' ') ;
End;