Program A; var n,i,a,p:integer; begin Randomize; n:=50; for i:=1 to n do begin a:=random(50)+150; if a>=170 then inc(p); end; writeln('Шанс имеют ',p,' претендентов.'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
