Предмет: Английский язык, автор: sbyrzhankrut

помогите пж пж пж пж пж пж пж​

Приложения:

Ответы

Автор ответа: baktygul70060708
0

Ответ:

рлжзевожзпуожоалзпжзапэне

Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Химия, автор: Марта111111
Осуществите превращение. Расставьте коэффициенты. Определитель типы хим. реакций. Назовите продукты хим. реакций.
1). N2+O2 --›
2). Fe(OH)2 --›
3). K Br+Cl2 --›
4). K OH+HNO3 --›
2 года назад
Предмет: Математика, автор: daniilvoronov
Вычеслить cos 3п/8 !!!!!!!!!!!!!!!!
2 года назад
Предмет: Другие предметы, автор: skoryakov200279
как сделать костюм ерика
2 года назад
Предмет: Физика, автор: Nekop34
1.Назовите вещество, которое можно часто увидеть в трех состояниях?
2.Тело сохраняет свой объем и форму. В каком состоянии находится вещество?
3.В каком состоянии вещество занимает полностью всю предоставленную им емкость?
4.В каком состоянии вещество сохраняет объем, но легко меняет свою форму?
9 лет назад
Предмет: Информатика, автор: egor8759oz5x2s
Нужно составить описание к программе(Задание - Составить список, содержащий сведения об n студентах. Для каждого студента должно быть указано:

-           фамилия;

-           ИНН;

-           дата рождения;

-           год поступления в университет;

-           курс;

-           группа;

-           оценки текущей сессии по трем предметам.

Информацию о каждом студенте оформить в виде записи. Совокупность записей объединить в массив. Составить программу, которая обеспечивает ввод исходных данных, обработку и вывод на экран информации в соответствии с вариантом задания.

Вывести на экран фамилии трех самых молодых студентов)

program pr5;
const
N = 5;

type
student = Record
fam: String;
inn: string;

Year: integer;

god_p: integer;
kurs: 1..5;
gruppa: string;

b1, b2, b3: 1..5;
End;

var
spisok: Array [1..N] Of student;
FF: Text;
b, a: string;
i, j, k1: Integer;

begin

for i := 1 To N Do
with spisok[i] Do
begin
Writeln('Введите фамилию');Readln(fam);
Writeln('Введите ИНН');Readln(inn);
Writeln('Введите три оценки');Readln(b1, b2, b3);
Writeln('год поступления');Readln(god_p);
Writeln('курс');Readln(kurs);
Writeln('группа');Readln(gruppa);

Writeln('Введите дату рождения(GGGGMMDD)без пробелов и точек всё пишем слитно(19971231)');Readln(Year);


end;

for i := 1 to n - 1 do
for j := 1 to n - i do
if spisok[j].Year > spisok[j + 1].Year
then
begin
k1 := spisok[j].Year;

a := spisok[j].fam;

spisok[j].Year := spisok[j + 1].Year;

spisok[j].fam := spisok[j + 1].fam;

spisok[j + 1].Year := k1;

spisok[j + 1].fam := a
end;
writeln;
for i := 1 to 3 do
begin
write(spisok[i].fam);
writeln;
end;
end.
9 лет назад