Var
y,x: integer;
begin
read(x);
y:=(5-x)^(2/2);
write(y);
end.
8 0 0
5 0 3
5 3 0
2 3 3
2 5 1
7 0 1
7 1 0
4 1 3
4 4 0
или нужно именно за 7 переливаний?
Как-то так...:Ъ
Program n1;
var
n, i: integer;
p: real;
begin
write('Введите n: ');
readln(n);
p := 1;
for i := 2 to n do
p := p * i;
writeln(n, '! = ', trunc(p));
end.
Можно рисовать в Paint просто что угодно или граффики в Exel
не забываем - нумерация в массиве начинается с 0
var
d : array of integer := new integer[30];
n : integer := -1;
i : integer;
begin
d := arrRandom(30, -100, 100);
repeat
n += 1;
if d[n] > 0 then i += 1;
until (n = 29) or (i = 4);
writeln('массив: ', d);
writeln('четвертый положительный элемент массива d[', n, ']=', d[n]);
end.