var a,b,c,m,n:integer;
BEGIN
write('Длина шкафа = ');
readln(c);
write('Ширина шкафа = ');
readln(a);
write('Высота шкафа = ');
readln(b);
write('Длина двери = ');
readln(m);
write('Ширина двери = ');
readln(n);
if ((a*b<=m*n) and (((a<=m) and (b<=n)) or ((a<=n) and (b<=m)))) or
((a*c<=m*n) and (((a<=m) and (c<=n)) or ((a<=n) and (c<=m)))) or
((c*b<=m*n) and (((c<=m) and (b<=n)) or ((c<=n) and (b<=m)))) then
writeln('ДА') else
writeln('НЕТ');
end.
2)......................................................
Var a:array[1..1000] of integer;
<span>sum,n,i:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>writeln('Введите количество чисел'); </span>
<span>read(n); </span>
<span>writeln('Введите числа'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum); </span>
<span>end.</span>
Налить первый раз в трехлитровый перелить в пяти, налить второй раз в трехлитровый, перелить в пятилитровый.
что останется, то и есть один литр :-) потому что 3+3-5=1
Кол-во символо = 82(с пробелами)
Размер = 82*32 = 2624
переведём в байты = 2624/8 = 336 байт ответ(2)