Var n,k:integer;
begin
readln(n);
k:=(n-1) div 1000;
writeln(k);
end.
Пример:
2001
2
Program n1;
const n=10;
var a: array [1..n] of integer;
i,kb,km: integer;
begin
kb:=0;
km:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
begin
if(a[i]>0) then kb:=kb+1;
if(a[i]<0) then km:=km+1;
end;
writeln('количество положительных: ',kb);
writeln('количество отрицательных: ',km);
end.
И получается текстовый документ
.................
Прикладные программисты – специалисты, занимающиеся разработкой конкретных программ,
Web-дизайнер – специалист , в обязанности которого входит проектирование пользовательских интерфейсов для web-сайтов или приложений.
Создание технических средств производства информации