Developing.ru

Код: Выделить всё

uses crt;
var x1,x2:integer;
    y:real;
BEGIN
 clrscr;
 write('Введте число №1:');
 readln(x1);
 write('Введите число №2:');
 readln(x2);
 y:=x1 div x2;
 writeln('Ответ:',y:10:2);
 readln;
END.

Код: Выделить всё

uses crt;
const k=1000;
var n,i:integer;
    m:array[1..k]of integer;
BEGIN
 clrscr;
 Write('Введите n:');
 readln(n);
 for i:=1 to k do
  m[i]:=i;
 for i:=1 to n do
  write(m[i]:5);
 readln;
END.

Код: Выделить всё

uses crt;
const k=1000;
var n,i:integer;
    m:array[1..k]of integer;
BEGIN
 clrscr;
 Write(' Введите n:');
 readln(n);
 for i:=1 to k do
  begin
   m[i]:=i;
   write(m[i]:5);
  end;
writeln('Ответ:',m[n]);
 readln;
END.

Код: Выделить всё

{
Выведите на экран n - ю цифру числа 
1234567891011121314151617181920...999
  (записаны последовательно в порядке возрастания все натуральные
  положительные числа меньше 1000),
  где n - заданное натуральное число.
}
var 
  n,i,m,LenAll : integer;
  s : string;
begin
 Write(' Введите n: ');
 readln(n);

 LenAll := 0;
 i:=0;

 while LenAll<n do begin
   inc(i);
   Str(i:1, s);
   if (LenAll+Length(S))>=n then
   begin
     m := n - LenAll;
     WriteLn(n:1,'-я цифра = ',Copy(S,m,1));
   end;  
   LenAll := LenAll+Length(S);
 end;
 readln;
end.