40*1024=40960 - Мбайт на жестком диске
40960/600 = 68,26, округляем в большую сторону, т.е
69 дисков потребуется
Даааааааааааааааааааааааааааааа
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.
Var
B,X:real;
Begin
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Write('Итоговая стоимость = ',X*B*0.8,' руб.')
End.
1(2)
2(2)
3(3)
4(т 1,3,5,8)
(Г 2,4,6,7)
(П 9,10,11,12)5 (ф 3,6)
(А 1,2,4,5,7,8)