Яблоко-плод яблони который употребляют в пищу в свежем виде
Program n1;
var a: integer;
begin
readln(a);
if (a mod 10)+(a div 100)+(a mod 100 div 10)>10 then write('верно') else write('неверно');
end.
Тоже сижу на этой олимпиаде:) Ответ скорее всего 32,40
PascalABC.NET 3.2
begin
Writeln(ReadString.Where(x -> x = '0').Count);
end.
Пример ввода:
znanija.com/task/24890848Пример вывода:
1
A)X+Y=<span>10011000
X-Y=</span><span>111010
</span>Б)X+Y=<span>1000101111
</span>X-Y=<span>10111101
В)X+Y=</span><span>101000100
</span>Y-Y=<span>11101110</span>
<span>
</span>