{ Каждую букву слова A поместить в таблицу. }

 

uses crt;

var a : string;

n,i : longint;

b : array [1..10] of string;

begin

clrscr;

write('введите текст:');readln(a);

n:=length(a);

for i:=1 to n do b[i]:=a[i];

for i:=1 to n do

begin

writeln('b[',i,']=',a[i]);

end;

readln;

end.

 

Подробнее...

 
 

{ Дано предложение составить программу располагающую

 

слова в порядке убывания длины слов }

 

uses crt;

type slov = array [1..10] of string;

var p,b : string;

s : slov;

i,j,l : integer;

q : boolean;

procedure maxdl( ii,jj : integer;ss : slov; var ll : integer );

var t:integer;m:string;

begin

m:=ss[ii]; { считает max(t) }

ll:=ii; { l-номер max }

for t:=ii+1 to jj do

if...

Подробнее...

 

 

 

{ Определить лежит ли точка а на прямой y=kx+l }

 

uses crt;

var x,y,l,k : integer;

begin

clrscr;

write('x=');readln(x);

write('y=');readln(y);

write('k=');readln(k);

write('l=');readln(l);

if y=k*x+l then write('Да')

else write('Нет');

readln;

end.

 

Подробнее...

 

 

 

 

{ Найти макс. элм. таб. и кол-во макс. элементов }

 

uses crt;

var a : array [1..10] of longint;

k,n,i,max : longint;

begin

clrscr;

write('кол-во элм таб n=');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do if a[i]>max then max:=a[i];

for i:=1 to n do if a[i]=max then k:=k+1;

writeln('max=',max);

writeln('кол-во: ',k);

readln;

end.

 

 

Подробнее...

 
Еще статьи...