Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
слева сколько воды находится в кувшинах
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 gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа: '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.
var
x,y: real;
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
end;
Популярные вопросы