Разбить студентов на группы.

ANTON12

S студентам необходимо поделиться на группы по 10 человек. Определить, какое количество полных групп получится, и сколько че-ловек войдут в неполную группу
2 ответа

ANTON12

var s,g,n:integer;
begin
write('Количество студентов S=');
readln(s);
g:=s div 10;
n:=s mod 10;
write('Полных групп=',g,' в неполной группе=',n,' студ.')
end.


ANTON12

спасибо