Отбор в команду по баскетболу

Если рост ≥ 170 см из 50 человек. Вывести количество претендентов

Задачу решить с помощью Паскаля

Question

Информатика

Алинка

19 августа, 05:06

Отбор в команду по баскетболу

Если рост ≥ 170 см из 50 человек. Вывести количество претендентов

Задачу решить с помощью Паскаля

+2

Ответы (1)

Знаете ответ на вопрос?

Каллиникия · Answer 1

Program n1;

var a, i, k: integer;

begin

k:=0;

for i:=1 to 50 do

begin

write ('введите рост: ') ;

readln (a) ;

if a>=170 then k:=k+1;

end;

writeln ('количество: ', k) ;

end.

Отбор в команду по баскетболуЕсли рост ≥ 170 см из 50 человек. Вывести количество претендентовЗадачу решить с помощью Паскаля

Отбор в команду по баскетболу

Если рост ≥ 170 см из 50 человек. Вывести количество претендентов

Задачу решить с помощью Паскаля