Пердык пук пук пук пук пукпупкпупк пукпу кпук
UPD
__________
Var
a,b,s,i:integer;
begin
readln(a,b);
if a <> b then
for i:=1 to abs(b) do s:=s+a
else for I:=1 to abs(b) do s:=s+a;
if (a<0) and (b<0) then s:=abs(s)
else if b<0 then s:=-s;
writeln(s);
end.
Program gt;
var a:array[1..100000]of integer;
i,h,j,k,p:integer;
begin
randomize;
readln(h);
for i:=1 to h do
begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
for i:=1 to h-1 do
for j:=1 to h-1 do
begin
k:=a[j+1];
if(a[j]>a[j+1])then begin
a[j+1]:=a[j];
a[j]:=k;
end;
end;
p:=0;k:=1;
for i:=2 to h do
begin
if(a[i]=a[i-1])then k:=k+1;
if(a[i]<>a[i-1])or(i=h)then begin
if(k>=2)then begin
p:=p+1;
writeln(a[i-1],' ',a[i-1]);
end;
k:=1;
end;
end;
writeln(p,' кол-во парных чисел без повторений');
<span>end.</span>
3 литра воды в 8-ми литровое пустое
3 литра воды в 8-ми литровое с 3 литрами
3 литра воды в 8-ми литровое с 6 литрами (до полного)
в 3-х литровом 1 литр остаётся
8-ми литровое выливаем
переливаем 1 литр из 3-х литрового в 8-ми литровое
3 литра воды в 8-ми литровое с 1 литром
3 литра воды в 8-ми литровое с 4 литрами
в 8 литровом 7 литров
1. открываем paint
2. выбираем инструмент Эллипс
3.выбираем 2-ую функцию (там где край одним цветом, закраска другим)
4. заходим в инструмент линия, выбираем толщину среднюю
5. нажимаем инструмент Эллипс
6. выбираем оранжевый цвет для границ (левая кнопка мыши на цвет) и желтый для заливки внутри (правая кнопка мыши)
7. зажимаешь клавишу Shift и рисуем круг (shift зажимается для того чтобы фигура была правильной)
8. выбираем инструмент Линия и рисуем лучи