var a,a1,a2,a3 : integer;
begin
readln(a);
a1:=a div 100;
a2:=(a mod 100) div 10;
a3:=(a mod 100) mod 10;
writeln(a1+a2+a3);
end.
а - само число, а1-число сотен, а2-число десятков, а3-число единиц
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024
Я смог решить только 7
program nomer;
var a,n,x:integer;
begin
while n<=0 do
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then a:=a+x;
writeln('хотите закончить ввод? да=1, нет=0');
readln(n);
end;
writeln(a);
end.
По RFC 791 IPv4 может быть здесь только таким 204.182.162.61
Разделим пазл на квадраты размера 2x2. Заметим, если в каком-нибудь квадрате Маша вынет хотя бы 3 кусочка, то гарантированно найдётся пара кусочков, которые можно состыковать. Значит, в худшем случае она вытащит не более половины всех кусочков, прежде чем появятся соседние. Как так может получиться, показано на рисунке.
Чтобы гарантированно найти пару кусочков, которые состыкуются правильно, ей надо вынуть 18 * 24 / 2 + 1 = 216 + 1 = 217 кусочков.