Объявлен набор в школьную баскетбольную команду. известен рост каждого из n учеников, желающих попасть в эту команду. составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.

234

296

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

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

Privet38395

Информатика

4,4(8 оценок)

Var i,n,hi,kol: integer; begin kol: =0; for i: =1 to n do //задаем цикл begin readln(hi); //вбиваем рост претендента if hi> =170 then //проверяем, соответствует ли его рост условию kol: =kol+1; //счетчик кол-ва подходящих под условие претендентов end; end.

KaDet1778

Информатика

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

Function _xor (x, y: boolean): boolean; begin _xor: =not(x=y); end; var x,y: integer; begin write('x y: '); readln(x,y); if _xor(x=0,y=0) then writeln(1) else writeln(0); end. пример: x y: 0 1 1