НАПИСАТЬ ПОЛНУЮ ПРОГРАММУ В ПАСКАЛЬ АБЦ!! N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику?
Программа получает на вход числа Nи K и должна вывести искомое количество яблок.
Var s: String; k, kol: Integer; Begin kol := 0; readln(s); while pos(' ',s) <> 0 do begin k := pos(' ',s); if k <> 0 then if k = 4 then begin kol := kol + 1; delete(s,1,4); end else delete(s,1,k); end; if length(s) = 3 then begin kol := kol + 1; delete(s,1,3); end; writeln(kol); End.