Информатика: Нужно номер 2. программа на паскаль авс

ochvv15owqbd0

06.06.2023 00:16

Информатика

Есть ответ 👍

Нужно номер 2. программа на паскаль авс

204

230

Посмотреть ответы 2

Ответы на вопрос:

saddsa17

Информатика

4,6(47 оценок)

var

cur_class, total: integer;

begin

cur_class : = 1;

total : = 12;

while (total < 100) do

begin

total : = total + trunc((total / 100) * 25) + 4;

cur_class : = cur_class + 1;

end;

write('вову исключат в ', cur_class, ' классе');

end.

Ismailll

Информатика

4,5(91 оценок)

Pascalabc.net const n=25; { число учащихся } type inform=record fio: string; kols: integer end; var minf: array[1..n] of inform; i,j,t: integer; vs,v: real; ts: string; begin { ввод исходных и накопление суммы для среднего } writeln('введите исходные данные'); t: =0; for i: =1 to n do with minf[i] do begin write(i: 2,') фамилия и.о. '); readln(fio); write(i: 2,') количество знаков '); readln(kols); t: =t+kols end; vs: =t/n/10; { сортировка по убыванию kols } for i : = 1 to n-1 do for j : = 1 to n-i do if minf[j].kols < minf[j+1].kols then begin t : = minf[j].kols; minf[j].kols: =minf[j+1].kols; minf[j+1].kols: =t; ts : = minf[j].fio; minf[j].fio: =minf[j+1].fio; minf[j+1].fio: =ts end; { результаты } writeln('самый результативный: ',minf[1].fio,' (',minf[1].kols/10: 0: 1, ' симв/мин)'); writeln('средняя скорость ввода составила ',vs: 0: 2,' симв/мин'); writeln('скорость ввода ниже средней имеют: '); for i: =2 to n do begin v: =minf[i].kols/10; if v< vs then writeln(minf[i].fio, v: 0: 1,' симв/мин)') end end. тестовое решение для 5 человек (было указано n=5): введите исходные данные 1) фамилия и.о. иванов и.и. 1) количество знаков 360 2) фамилия и.о. петров п.п. 2) количество знаков 410 3) фамилия и.о. сидоров с.с. 3) количество знаков 270 4) фамилия и.о. козлов к.к. 4) количество знаков 390 5) фамилия и.о. поляков п.п. 5) количество знаков 385 самый результативный: петров п.п. (41.0 симв/мин) средняя скорость ввода составила 36.30 симв/мин скорость ввода ниже средней имеют: иванов и.и.36.0 симв/мин) сидоров с.с.27.0 симв/мин)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.