Вот решение в пару строчек:
program with_for;
var i, x: integer;
begin
for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;
writeln(x);
end.
Это загадка. Ответ: коньки.
Вроде так.
Program1;
Var
y,x:real;
Writeln('vedi x');
readln(x);
y=3x-8;
writeln ('y=');
readln;
End.
Возможно это правильно
Uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
SetPenWidth(8);
SetPenColor(clBlue);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clLimeGreen);
Drawcircle(x,y,50);
inc(x,110);
end.
5124 в двоичной= 1010000000100 (5124÷2=(полученный ответ записывается с права налево) 1010000000100₂)
23 в двоичной= 10111 (23÷2=(полученный ответ записывается с права налево) 10111₂)
14 в восьмеричной = 16 (14÷8=(полученный ответ записывается с права налево) 16₈)
327 в восьмеричной= 507 (327÷8=(полученный ответ записывается с права налево) 507₈)
3D в шестнадцатеричная = 61 (3D₁₆ = 3∙16¹+13∙16⁰ = 48+13 = 61₁₀ )
2E в шестнадцатеричная = 46 (2E₁₆ = 2∙16¹+14∙16⁰ = 32+14 = 46₁₀)