Нет, слабоват для World of Tanks
алг
нач
<em>цел </em>k, l
k := int(rand(5, 80));
<u>вывод </u>"Угадайте число", нс | k
<u>ввод </u>l
<u><em>если </em></u>k = l <u><em>то</em></u>
<u>вывод </u>"Вы совершенно правы, сударь"
<u><em>иначе</em></u>
<u>вывод </u>":Р"
<u><em>все</em></u>
<span>кон</span>
Ни одно из множеств K и U не является подмножеством другого.
Ответ: 18
Обоснование:
Var a,b,c : Integer;
Begin
a:=1257; c:=0;
while a>0 do begin
if a mod 2<>0 then b:=a mod 10; c:=c+b;
a:=a div 10; end;
Writeln(c);
end.