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

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

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

Question

Информатика

Ксеша

7 декабря, 07:24

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

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

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

+5

Ответы (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 человек. Вывести количество претендентов

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