Ответ:
k = int(input("Введите количество карандашей (< 32000): "))
a = int(k / 13)
print("целых коробок: " )
print(a)
b = k - a*13
print("карандашей без коробки: ")
print(b)
Объяснение:
Var a:byte;
begin
write ('<span>x+y=a+b');
end.</span>
1)-1
2)-2
3)-3
4)-4
5)-5
6)-10
7)-11
8)-12
9)-13
10)-14
11)-15
12)-20
13)-21
14)-22
15)-23
16)-24
17)-25
18)-30
19)-31
20)-32
Begin
var s:=readlnstring;
var gl:='АЕИОУЫЯЁЮЭ';
var m:=s.ToWords;
var k:=m.Length;
var b:=new integer[k];
for var i:=0 to k-1 do
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;
Writeln(m[b.IndexMax])
end.