Написать на паскале начав тренировки лыжник в первый день пробежал 10 км. каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. определить пробег лыжника за второй, третий, …, десятый день.

Program asd; var a,b: integer; begin a: =10; writeln('1=10'); for b=2 to 10 do begin writeln(b,'=',a+((a/100)*10); a: =a+((a/100)*10); end; end.

Uses graphabc;     begin   setwindowwidth(800);           setwindowheight(900);         setpenwidth(1);       putpixel(400, 400, clred);                               line(0, 150, 100, 150);   line(0, 150, 100, 200);   line(100, 150, 150, 100);   line(100, 50, 200, 150);   line(100, 50, 200, 0);   line(200, 0, 250, 50);   line(250, 50, 300, 0);   line(300, 0, 300, 100);   line(300, 100, 350, 100);   line(350, 100, 250, 150);   line(250, 150, 300, 350);   line(300, 350, 400, 400);   line(50, 300, 100, 200);   line(50, 300, 100, 250);   line(100, 250, 150, 550);   line(150, 550, 300, 650);   line(400, 400, 500, 250);   line(500, 250, 650, 250);   line(650, 250, 750, 450);   line(750, 450, 650, 400);   line(650, 400, 550, 500);   line(550, 500, 650, 450);   line(750, 600, 650, 450);   line(600, 550, 750, 600);   line(700, 700, 600, 550);   line(500, 600, 700, 700);   line(400, 650, 500, 600);   line(400, 800, 400, 650);   line(450, 850, 400, 800);   line(250, 850, 450, 850);   line(350, 800, 250, 850);   line(300, 650, 350, 800); end.

Uses graphabc;     begin   setwindowwidth(800);           setwindowheight(900);         setpenwidth(1);       putpixel(400, 400, clred);                               line(0, 150, 100, 150);   line(0, 150, 100, 200);   line(100, 150, 150, 100);   line(100, 50, 200, 150);   line(100, 50, 200, 0);   line(200, 0, 250, 50);   line(250, 50, 300, 0);   line(300, 0, 300, 100);   line(300, 100, 350, 100);   line(350, 100, 250, 150);   line(250, 150, 300, 350);   line(300, 350, 400, 400);   line(50, 300, 100, 200);   line(50, 300, 100, 250);   line(100, 250, 150, 550);   line(150, 550, 300, 650);   line(400, 400, 500, 250);   line(500, 250, 650, 250);   line(650, 250, 750, 450);   line(750, 450, 650, 400);   line(650, 400, 550, 500);   line(550, 500, 650, 450);   line(750, 600, 650, 450);   line(600, 550, 750, 600);   line(700, 700, 600, 550);   line(500, 600, 700, 700);   line(400, 650, 500, 600);   line(400, 800, 400, 650);   line(450, 850, 400, 800);   line(250, 850, 450, 850);   line(350, 800, 250, 850);   line(300, 650, 350, 800); end.