Предмет: Математика, автор: letfeet08

1)х-2/м+2/м
2)х/7-2/у

Ответы

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

Ответ:

чтоооооооооооооооооо

Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Математика, автор: daniilvoronov
Вычеслить cos 3п/8 !!!!!!!!!!!!!!!!
2 года назад
Предмет: Другие предметы, автор: skoryakov200279
как сделать костюм ерика
2 года назад
Предмет: Английский язык, автор: baghinyan1999
Ex. Use the required tense (Future Continuous, Future Perfect, Future Perfect Continuous):
1. When you return from your business trip we (to sign) a new agreement.
2. His secretary is so slow that I’m sure in an hour she still (to type) letters.
3. By the end of the year Edward (to publish) his new novel.
4. By the end of the school year the pupils (to learn) a lot of English words and expressions.
5. By next September I (to work) at this office for 20 years.
2 года назад
Предмет: Информатика, автор: 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 лет назад
Предмет: Литература, автор: Valeryyyyy1
Твір на тему :
Творчість Чарльза Діккенса як вершина англійської літератури
9 лет назад