На паскале: в группе 15 человек. найти количество человек из группы, чей рост не ниже 165.

Предыдущий
вопрос Следующий
вопрос

Для решения этой задачи можно использовать следующий код на Pascal:

program CountHeight;
var
height, count, i: integer;
begin
count := 0;
for i := 1 to 15 do
begin
write('Введите рост человека ', i, ': ');
readln(height);
if height >= 165 then
count := count + 1;
end;
writeln('Количество человек из группы, чей рост не ниже 165 см: ', count);
end.

Этот код позволяет ввести рост 15 человек и подсчитать количество людей из группы, чей рост не ниже 165 см.