Ответы на вопрос:
1. Безопасный секс.
2. Секс с проверенным партнером.
3. Регулярно сдавать анализы.
4. Секс в пригодных условиях (никаких туалетов баров и т.д.)
2. Секс с проверенным партнером.
3. Регулярно сдавать анализы.
4. Секс в пригодных условиях (никаких туалетов баров и т.д.)
Program file11;
uses crt;
Type Student = record
fio: string [5];
school, group: integer;
olimp: string[10]; ball:real;
end;
var
f: file of student;
name: string;
uch: array[1..4] of student;
i:integer;
n:char;
s1:student; ball:real; olimp: string[10];
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы студента');
Readln (s1.fio);
While s1.fio <> ' ' do
Begin
Writeln ('Введите номер школы и группы');
Readln (s1.school, s1.group);
writeln ('участвовал(вала) студент(ка) в олимпиаде по информатикe? ');
readln (s1.olimp);
writeln ('Сколько баллов набрал?');
readln (s1.ball);
write (f,s1);
Writeln ('Введите фамилию и инициалы следующего студента ');
Readln (name);
s1.fio:=name;
End;
Writeln ('Файл создан');
Close(f);reset(f);
writeln (' Pokazat spisok ');
while not Eof(f) do
begin
read (f,s1); while(s1.ball)>=30 do begin
olimp:='информатика';
begin
writeln ('ФИО: ',s1.fio);
writeln ('Школа: ',s1.school);
writeln ('Участвовал в олимпиаде: ',s1.olimp);
writeln ('Баллы: ',s1.ball);
writeln('---------------------');
end; end;
Close(f);
End;end.
uses crt;
Type Student = record
fio: string [5];
school, group: integer;
olimp: string[10]; ball:real;
end;
var
f: file of student;
name: string;
uch: array[1..4] of student;
i:integer;
n:char;
s1:student; ball:real; olimp: string[10];
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы студента');
Readln (s1.fio);
While s1.fio <> ' ' do
Begin
Writeln ('Введите номер школы и группы');
Readln (s1.school, s1.group);
writeln ('участвовал(вала) студент(ка) в олимпиаде по информатикe? ');
readln (s1.olimp);
writeln ('Сколько баллов набрал?');
readln (s1.ball);
write (f,s1);
Writeln ('Введите фамилию и инициалы следующего студента ');
Readln (name);
s1.fio:=name;
End;
Writeln ('Файл создан');
Close(f);reset(f);
writeln (' Pokazat spisok ');
while not Eof(f) do
begin
read (f,s1); while(s1.ball)>=30 do begin
olimp:='информатика';
begin
writeln ('ФИО: ',s1.fio);
writeln ('Школа: ',s1.school);
writeln ('Участвовал в олимпиаде: ',s1.olimp);
writeln ('Баллы: ',s1.ball);
writeln('---------------------');
end; end;
Close(f);
End;end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
5 предложений про лето на немецком...
Ахаахсхвхахэпахэаээа04.03.2023 19:57 -
Какой фильм можете посоветовать для хорошего настроения? и для...
всмпасы03.03.2023 14:48 -
Какими 2 материалами можно убить белого ходока?...
дизиль12.11.2020 05:37 -
Построить аксонометрическую проекцию...
PSV2313.07.2020 14:46 -
Основна проблема п єси б. шоу пігмаліон...
superstudio5709.09.2021 18:26 -
Дополните предложения и запиши в тетрадь: 1. Различные участки...
Rogonova07.08.2021 10:12 -
Https://pludeo.com/watch/tCV19GpFQZWIrTl https://pludeo.com/watch/WrdjJECaZZCeYot...
dnsadlerqwer20.07.2022 11:28 -
Практическая работа из 3 работ 1 из них правельно какая оценка...
mishamanoaa03.02.2022 01:41 -
1. В каких случаях необходимо полностью отключать станок? а)...
ABI0405.10.2022 16:43 -
Изменение размеров тела, его пропорций, телосложения, мышечной...
123423442127.08.2021 06:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.