Var n,m:longint;
Begin
Read(n,m);
Write((n mod m)*(m mod n)+1)
End.
Ответ:
это логотип компании которая его выпустила
Объяснение:
название компании не знаю
Тело:
var a,b,c:integer; m:boolean;beginm:=True;read(a,b,c);if (a+b<0) or (b+c<0) or (a+c<0) then m:=False;write(m);end.
А что именно решать? не вижу задание???
10 Минут = 600 Секунд
600 сек * 64 КБит/Сек = 38400 КБит = 4800 КБайт