if sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');
readln;
end.
Ответ дал: Гость
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
end.
Ответ дал: Гость
20, если он возьмёт 19 правых, то 20-ая уже гарантирована будет левой и пара будет составлена. если он возьмёт меньше двадцати перчаток, то есть шанс, что все они будут правые.
Популярные вопросы