Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;
writeln(p);
<span>end.</span>
GIF, JPEG, PNG, и WebP-форматы у изображения
Вот у тебя есть число 99
99 < 128, значит берем 64
Теперь составим 99 из степеней двойки:
64 = 2^6 = 1000000 (в двоичном виде это единица и 6 нулей)
32 = 2^5 = 0100000 (аналогично, единица и 5 нулей)
2 = 2^1 = 0000010
1 = 2^0 = 0000001 (любое число в 0 степени - 1)
Получаем 1100011
Круг-яблоня, квадрат-сосна, дуб, прямоугольник- ландыш, морковь
Var i,k:integer;
a:array[1..30] of integer;
begin
for i:=1 to 30 do
begin
a[i]:=random(30)-15;
if (a[i]>0) and (a[i] mod 2 = 0) then a[i]:=a[i] div 2;
if (a[i]>0) and (a[i] mod 2 <> 0) then a[i]:=a[i]*2;
if a[i]<0 then a[i]:=a[i]*-1;
end;
for i:=1 to 30 do writeln(a[i]);
<span>end.</span>