Первый пловец проплыл 3 км в каждый следующий день он прибавляет по 500 м к предыдущему результату на какой день он будет проплывать > 5 км по турбо паскалю

  var r,d: integer;

begin

r: =3000; d: =0;

repeat

begin

r: =r+500;

 

d: =d+1;

end;

until r< 5000;

  writeln('на ',d,' день');

  end.

 

 

привожу полные исходники программы, как бы ее сделал я:  

program plovec; uses crt;  

var m: integer;

begin

clrscr;

m: = 6if 3+0,5 < = 5then

writeln (m, 'den'); else

m: =0

end. 

 

1) э то кнопки, иконки, поля ввода. кнопки нажимаются, в поля вводится текст.2) в windows -строка заголовка – верхняя строка окна, в которой находится имя программы или имя окна;   кнопка сворачивания окна;   кнопка восстановления окна  кнопка закрытия окна  кнопка системного меню  строка меню  панель инструментов  полосы прокрутки  рабочее поле  строка состояния  рамка окна.  вроде все.3)  1. system 32.  рабочий стол. 2. мой компьютер, мои документы, корзина, сетевые окружения(сеть) и объекты windows. 4)  1. иконки, панель , папки 2. ярлык это ссылка на файл, который может находиться где угодно на пк, а значок это сам файл 3. на панели располагается запущенные приложения, панель быстрого доступа, . 4. папка "мой компьютер"5)  ярлык дает ссылку на значок,который запускает. 6) пуск,панель ,программы в фоновом режиме, или все, что ты туда поместишь.

Program n1; function isprost(x: integer): boolean; var i: integer; begin if x< 2 then isprost: =false else begin isprost: =true; for i : = 2 to round(sqrt(x)) do if x mod i = 0 then isprost: =false; end; end; function islow(x: integer): boolean; var n1,n2: integer; begin islow: =false; n2: =x mod 10; x: =x div 10; n1: =x mod 10; x: =x div 10; while (n1> n2) and (x< > 0) do begin n2: =n1; n1: =x mod 10; x: =x div 10; end; if n1> n2 then islow: =true; end; var k,n,i,f: integer; begin readln(k,n); f: =-1; for i: =k to n do if isprost(i) and islow(i) then begin write(i,' '); f: =1; end; if f=-1 then write(0); end.