СРОООООЧНО даю 100 баллов и 100 руб за каждую задачу!!! За каждую задачу скину 100 руб: только свой qiwi оставьте
Сделать это надо на pascal
1. Известны данные о 25 учениках класса: фамилия, имя, отчество, адрес и домашний телефон, если он есть. Вывести на экран фамилию, имя и адрес учеников, у которых нет домашнего телефона. Рассмотреть два случая: 1) телефон задан в виде семизначного числа; 2) телефон задан в виде, аналогичном следующему: 268–50–59.

2. Известны фамилии всех 30 сотрудников фирмы и их адреса. Определить, работают ли в фирме люди с одной из фамилий: Кузин, Куравлев, Кудин, Кульков или Кубиков. В случае положительного ответа напечатать их адреса.

3. (*)Известна информация о 28 учениках нескольких школ, занимающихся в районном Доме творчества учащихся (фамилия, имя, адрес, номер школы и класс). Фамилию, имя и адрес тех учеников, которые учатся в данной школе в старших (10—11 классах), записать в отдельный массив с элементами типа "запись"

Ответ

Автор - Ilya3721

Ответ:

type

firma = record

fam:string;

adres:string;

end;

var

mas:array[1..8] of firma;

i,k:integer;

str:string;

begin

mas[1].fam:='Кузин';

mas[2].fam:='Куравлев';

mas[3].fam:='Кудин';

mas[4].fam:='Кульков';

mas[5].fam:='Кубиков';

mas[6].fam:='Иванов';

mas[7].fam:='Петров';

mas[8].fam:='Сидоров';

mas[1].adres:='ул.Мира,7';

mas[2].adres:='ул.Маркса,6';

mas[3].adres:='ул.Комсомольская,17';

mas[4].adres:='ул.Ленина,5';

mas[5].adres:='ул.Центральная,18';

mas[6].adres:='ул.Клубная,26';

mas[7].adres:='ул.Чехова,2';

mas[8].adres:='ул.Амосова,68';

write('Введите фамилию сотрудника -> ');readln(str);

k:=0;

for i:=1 to 8 do

begin

if str=mas[i].fam then

begin

k:=k+1;

writeln('фамилия - ',mas[i].fam);

writeln('адрес - ',mas[i].adres);

end;

if k=0 then writeln('такого сотрудника нет!');

readln;

end.

Объяснение:

Это ответ на задание 2

Qiwi +79172489972