Если не ошибаюсь, это она. либо там выведется кол.во яблок каждому ученику.
program ...;
var
n, a, k, y : integer;
begin
readln (y, k);
a:= y mod k
y:= y div k
writeln (a, y);
end.
program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.
Неразрывный пробел Ctrl+Shift+пробел
перевод строки, пробел
Если число в 8-ричной системе оканчивается на 0, значит в нем целое число восьмерок, то есть оно делится на 8.
Также оно делится и на 6 (поэтому же). Это число 24.
Program z1; Var n:integer;Begin write('Введите число - '); readln(n); while n>9 do n:=n div 10; if (n mod 2= 0) then writeln('Четна') else writeln('Нечетна');<span>End.</span>