Отбор в команду по баскетболу если рост ≥ 170 см из 50 человек. вывести количество претендентов решить с паскаля
278
293
Ответы на вопрос:
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.
Подготовь заметку в школьную газету (8-10) предложений на тему компьютер и его развитие в будущем
Популярно: Информатика
-
nadijagordijenp07vwr30.03.2022 18:17
-
Megatrolll22828.08.2020 11:48
-
MHEBCEPOBHO01.01.2023 02:42
-
sas4ha22.04.2020 16:57
-
katasinicina3917.04.2020 10:02
-
martyanovvanya126.03.2020 02:56
-
natashenkagrekova35710.04.2021 21:50
-
вова95320.05.2021 21:12
-
veselskih199809.09.2020 22:14
-
hasmikaydinyan03.05.2023 19:42