Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
да,можно.только одного цвета будет 12,а другого тоже 12 и одна клетка останется.
слева сколько воды находится в кувшинах
8 - 0 : 1. наливаем в кувшин 8 л
5 - 3 : 2. переливаем из 8 л кувшина в 3 литровый, и выливаем в реку
2 - 3 : 3. переливаем из 8 л кувшина 3 литровый и выливаем в реку
0 - 2 : 4. переливаем оставшиеся 2 л из 8 литрового в 3 литровый кувшин
8 - 2 : 5. наливаем воду в 8 л кувшин
7 - 3 : 6. наливаем воду из 8 л кувшина в 3 л пока он не заполниться, т.е. наливаем туда 1 л, в 8 л кувшине остается 7 литров.
program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');
readln
end.
program yravnenie;
var a,b,c,d,x1,x2,p,q: real; begin repeat write('a= '); readln(a); if a=0 then writeln('error: a=0. enter another value'); until a< > 0; write('b= '); readln(b); write('c= '); readln(c); p: =b/a; q: =c/a; d: =sqr(p/2)-q; if d> 0 then begin writeln('x1 = ',-p/2-sqrt(d): 0: 5); writeln('x2 = ',-p/2+sqrt(d): 0: 5); end else if d=0 then writeln('x1 = x2 = ',-p/2: 0: 5) else begin writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5); writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5); end; readln; end.
Популярные вопросы