===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
В 18 задании у натурального логарифма пропущен аргумент.
Я поставил по умолчанию 1.f, но, если я не прав, измените его.
У каждого задания свой файл(matematika_X.cpp, где X - номер задания).
Здесь 5 заданий. Остальные задания отправлю в личные сообщения
Ответом является число 1, ведь самое маленькое кол-во человек это 1
1-10)0 1 2 3 4 5 6 7 8 9 A
11-20) B C D E F G H I J K
21-30) 10 11 12 13 14 15 16 17 18 19
31-40) 1A 1B 1C 1D 1E 1F 1G 1H 1I 1J
41-50) 1K 20 21 22 23 24 25 26 27 28
51-60) 29 2A 2B 2C 2D 2E 2F 2G 2H 2I
61-70) 2J 2K 30 31 32 33 34 35 36 37
Var a, s, m: integer;
begin
while m < 5 do begin
read(a);
s := s + a;
if (a div 100 > 0) and (a div 100 < 10) then m := 5;
end;
writeln(s-a);
end.