Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1) чтобы точно вынуть черный, нужно вынуть 6 шаров, т.к. первые 5 могут оказаться белыми
2)аналогично, 4 шара
3)7 шаров
4)5 шаров
50зн=50байт
60зн=60байт
1кбайт= 1024байта
1мб=1024кбайта
=> 1мбайт=(1024*1024)байт
1мбайт=1048576 байт
50байт/1048576байт=0,0000476837мбайт
60байт/1048576байт=0,0000572205мбайт
1)
var
a,b,x,y: real;
begin
readln(a,b);
x: =(a+b)/2;
y: =2*a*b;
if a> b then
a: =y;
b: =x;
end
else
a: =x;
b: =y;
end;
writeln('a=',a: 8: 3);
writeln('b=',b: 8: 3);
end.
2)
d,m: integer;
readln(d,m);
if (d< 1) or (d> 31) then writeln ('день введен неверно');
if (m< 1) or (m> 12) then writeln ('месяц введен неверно');
3)
a,b,c: integer;
readln(a,b,c);
if (a> b) and (a> c) then writeln(a);
if (b> a) and (b> c) then writeln(b);
if (c> a) and (c> b) then writeln(c);
подвести курсор к элементу удаления
нажать клавишу backspace.
Популярные вопросы