Дано натуральное k. Напечатать k-ю цифру последовательности 1234567891011121314., в которой выписаны подряд все натуральные числа.
Uses crt;
var s, tmp: string;
i, k: integer;
begin
read(k);
s:= ' ';
for i:= 1 to 100 do begin
str(i, tmp);
s:= s + tmp;
end;
write(s[k]);
readln;
end.
- В массиве А[1..N,1..N] определить номера строки и столбца какой-нибудь седловой точки. Некоторый элемент массива называется седловой точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
StringGrid2: TStringGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var n, i: integer;
a: array [1..100] of integer;
begin
n:= 10;
for i:= 1 to n do
a[i]:= strtoint(stringgrid1.cells[i - 1, 0]);
for i:= 1 to n div 2 do begin
stringgrid2.Cells[(i - 1) * 2, 0]:= inttostr(a[i]);
stringgrid2.Cells[(i - 1) * 2 + 1, 0]:= inttostr(a[n - i + 1]);
end;
if n mod 2 <> 0 then
stringgrid2.Cells[n - 1, 0]:= inttostr(a[n div 2 + 1]);
end;
end.
----------------------------------------
На форме должно быть:
// StringGrid1
1. Дано натуральное k. Напечатать k-ю цифру последовательности 149162536..., в которой выписаны подряд квадраты всех натуральных чисел.
Uses crt;
Var
s,a:string;
i,k,x:integer;
begin
clrscr;
readln(x);
for i:=1 to N(Где N любое число на твой вкус:D) do
begin
k:=i*I;
str(k,s);
insert(s,a,i);
end;
writeln(a[x]);
readkey;
end.
Дата добавления: 2015-12-17; просмотров: 74; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!