Вопрос по информатике:
Pascal.
В классе 26 учащихся, вес учащихся от 55 до 85кг, подсчитать количество легких учеников (до 60кг) и количество тяжелых учеников (75+)
- 21.03.2018 12:27
- Информатика
- remove_red_eye 16519
- thumb_up 25
Ответы и объяснения 1
Var
i,p,k1,k2:integer;
begin
Randomize;
Writeln('Вес учеников');
k1:=0; k2:=0;
for i:=1 to 26 do
begin
p:=Random(31)+55;
Write(p:3);
if p<60 then Inc(k1)
else if p>=75 then Inc(k2)
end;
Writeln;
Writeln('Легких- ',k1,', тяжелых- ',k2)
end.
Тестовое решение:
Вес учеников
75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58
Легких- 8, тяжелых- 9
Вариант со вводом данных:
var
i,p,k1,k2:integer;
begin
Writeln('Введите вес учеников');
k1:=0; k2:=0;
for i:=1 to 26 do
begin
Read(p);
if p<60 then Inc(k1)
else if p>=75 then Inc(k2)
end;
Writeln('Легких- ',k1,', тяжелых- ',k2)
end.
Тестовое решение:
Введите вес учеников
75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58
Легких- 8, тяжелых- 9
- 22.03.2018 17:16
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.