var i:integer; a:array[1..10] of integer; begin for i:=1 to 10 do begin a:=random(100); end; for i:=1 to 10 do begin if(a mod 100 = a) and (a>10) and(a <100) then writeln(a) end; end.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.