10 50 true
8 45 true
6 40 true
4 30 true
2 25 true
0 20 false
k:=10;
t:=50;
while k>1 do
begin
k:=k-2;
t:=t-5;
end;
write(k,n);
Порядок переливания краски ( по шагово ) :
шаг перелива - 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8
ведро (12 л) - 12 4 4 9 9 1 1 6
банка (5 л) - 0 0 5 0 3 3 5 0
ведро (8 л) - 0 8 3 3 0 8 6 6
1 11 - п(нечетное)2 2000 - т(число не 2-х значное)3 река - ф(случайная буква)4 шоссе - р(случайная буква)5 вечер - 5(число букв)6 48 - н (больше 20)7 сом - м(случайная буква)8 стол - о(з-я буква)
function MyPower(x: real; n: integer): real;
var
i: integer;
begin
result := 1;
if n < 0 then
result := 1 / MyPower(x, -n)
else
for i := 1 to n do
result := result * x;
end;
var
x, y, p: real;
begin
Write('x, y: ');
Read(x, y);
p := (2 * MyPower(x, 5) + 4 * MyPower(x, 30) + 8 * y)
/ (2 * y + MyPower(y, 15) - 25 * x);
Write('p = ', p);
end.