2. Дан текст из слов, разделенных произвольным числом пробелов. Распечатать слова, имеющие две подряд идущие одинаковые гласные.
3.Дан список жильцов по форме: *ФИО*год рождения*месяц*день рождения*
Распечатать в алфавитном порядке фамилии жильцов, которым к заданной дате исполнилось 18 лет. Использовать RECORD.
1. Дан текст из слов, разделенных произвольным числом пробелов. Определить число слов, начинающихся на ту же букву, что и третье слово.
2. Дан текст из слов, разделенных произвольным числом пробелов. Распечатать слова, имеющие две подряд идущие одинаковые гласные.
3.Дан список жильцов по форме: *ФИО*год рождения*месяц*день рождения*
Распечатать в алфавитном порядке фамилии жильцов, которым к заданной дате исполнилось 18 лет. Использовать RECORD.
Код
Program zad;
uses crt;
type
facts=record
fam:string;
name:string;
otchestvo:string;
birthday:integer;{god, mesjac, deni rojdenija}
end;
const
n=3;
var
spludej:array[1..n] of facts;
person:integer;
i:integer;
Begin
clrscr;
for i:=1 to n do
begin
writeln('vvedite dannie o ',i,' 4eloBeke');
writeln('Familija ');
readln(spludej[i].fam);
writeln('Imja ');
readln(spludej[i].name);
writeln('ot4estBo ');
readln(spludej[i].otchestvo);
writeln('god, mesjac, deni rojdenija ');
readln(spludej[i].birthday);
end;
clrscr;
writeln('vvedite god, mesjac, deni rojdenija 4eloBeka');
readln(person);
clrscr;
for i:=1 to n do
if spludej[i].birthday=person
then
writeln(spludej[i].fam)
end.
uses crt;
type
facts=record
fam:string;
name:string;
otchestvo:string;
birthday:integer;{god, mesjac, deni rojdenija}
end;
const
n=3;
var
spludej:array[1..n] of facts;
person:integer;
i:integer;
Begin
clrscr;
for i:=1 to n do
begin
writeln('vvedite dannie o ',i,' 4eloBeke');
writeln('Familija ');
readln(spludej[i].fam);
writeln('Imja ');
readln(spludej[i].name);
writeln('ot4estBo ');
readln(spludej[i].otchestvo);
writeln('god, mesjac, deni rojdenija ');
readln(spludej[i].birthday);
end;
clrscr;
writeln('vvedite god, mesjac, deni rojdenija 4eloBeka');
readln(person);
clrscr;
for i:=1 to n do
if spludej[i].birthday=person
then
writeln(spludej[i].fam)
end.
необходима дороботка(а именно :алфавитный порядок и форма);
4. Дана таблица по форме: *ФИО*отметки о посещении 10-ти занятий (0-пропустил, 1-присутствовал)*оценки задач*
Сформировать таблицу: *ФИО*количество пропусков*средний балл*количество задач*зачёт(незачёт).
Зачёт ставится студентам, пропустившим не более 5 занятий, сделавших не менее 8 задач, в том числе №9 и №10, и имеющих не менее 4-х оценок "4" и "5". Использовать тип RECORD.
(это еще не все задачи)