<span>1
2
3
4
5
6
7
8
9
10
11
12
<span>uses crt;
var a,c,h,s,x:real;
begin
clrscr;
writeln('Введите длины большего основания, боковой стороны и высоты ');
writeln('равнобедренной трапеции:');
readln(a,c,h);
x:=sqrt(c*c-h*h);
s:=(a-x)*h;
write('Площадь=',s:0:2);
readln
end.</span></span>
16дней так как в день по 0,5в день от сюда ввывод
Разделим пазл на квадраты размера 2x2. Заметим, если в каком-нибудь квадрате Маша вынет хотя бы 3 кусочка, то гарантированно найдётся пара кусочков, которые можно состыковать. Значит, в худшем случае она вытащит не более половины всех кусочков, прежде чем появятся соседние. Как так может получиться, показано на рисунке.
Чтобы гарантированно найти пару кусочков, которые состыкуются правильно, ей надо вынуть 18 * 24 / 2 + 1 = 216 + 1 = 217 кусочков.
Если имеются в виду арабские цифры, использующиеся для записи в десятичной системе счисления, то в множество войдут десять цифр: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.
var n,k:integer;
begin
readln(n);
k:=n mod 10;
while n>0 do begin
n:=n div 10;
if k<(n mod 10) then k:=n mod 10;
if k=9 then break;
end;
writeln(k);
end.