Напишите программу, которая вводит с клавиатуры дынные о n лицах (n меньше либо равно 50) и выводит на экран фамилии и имена тех, кто родилсяв день z месяца.

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.

 

 

 

Для подсчёта слов в предложении, вот код: program slova; var   s: string;   r,i: integer; begin   writeln('введите ваше предложение');   readln(s);   s: =s+' ';   for i: =1 to length(s)-1 do   if (s< > ' ') and (s[i+1]=' ') then   r: =r+1;   writeln('в предложении ',r, ' слов. ');   readln; end. какая буква встречается чащеprogram bykv; var s: string;       i,k1,k2: byte; begin       write('введите строку: '); readln(s);       for i: =2 to length(s)-1 do         if s[i]=s[1] then inc(k1)           else if s[i]=s[length(s)] then inc(k2);       writeln('первая буква встречается ',k1);       writeln('последняя буква встречается ',k2);       writeln('вывод: ');       if k1> k2 then writeln('первая буква встречается чаще')         else if k1< k2 then         writeln('последняя буква чаще')           else writeln('одинаково');       readln; end. изменить слово петя на иван в строке program test; var s,t,z,p: string; j: integer; begin writeln('введите ваше предложение'); readln(s); write('введите слово которое хотите заменить: '); readln(t); write('введите замену слову: ', t, ' < > '); readln(z); if pos(t,s)< > 0 then j: =pos(t,s); p: =copy(s,1,j-1); p: =p+z; p: =p+copy(s,j+length(t),length(s)); writeln(p); readln; end.

Это код консольного приложения program project2; {$apptype console} uses   sysutils, windows; function storona(x1,y1,x2,y2: real): real; var s: real; begin   s: =sqrt(sqr(x1-x2)+sqr(y1-y2));   storona: =s; end; var   x1,y1,x2,y2,x3,y3: real;   l1,l2,l3: real; begin   //переключение окна консоли на кодовую страницу cp1251 (win-1251).   //если после переключения буквы показываются неверно,   //следует открыть системное меню консольного окна - щелчком мыши в левом   //верхнем углу окна консоли и выбрать:   //свойства - закладка "шрифт" - выбрать шрифт: "lucida console".   setconsolecp(1251);   setconsoleoutputcp(1251);   write('введите координаты точки а: ');   readln(x1,y1);   write('введите координаты точки b: ');   readln(x2,y2);   write('введите координаты точки c: ');   readln(x3,y3);   l1: =storona(x1,y1,x2,y2);   l2: =storona(x2,y2,x3,y3);   l3: =storona(x1,y1,x3,y3);   if (l1> l2)and(l1> l3) then   begin       writeln('периметр прямоугольника = ',(l2+l3)*2: 6: 2);       writeln('площадь прямоугольника = ',l2*l3: 6: 2)   end;       if (l2> l1)and(l2> l3) then   begin       writeln('периметр прямоугольника = ',(l1+l3)*2: 6: 2);       writeln('площадь прямоугольника = ',l1*l3: 6: 2)   end;       if (l3> l1)and(l3> l2) then   begin       writeln('периметр прямоугольника = ',(l1+l2)*2: 6: 2);       writeln('площадь прямоугольника = ',l1*l2: 6: 2)   end;   readln; end.