<span>var x,y,a:integer;</span>
<span>c:boolean;</span>
<span>begin</span>
<span>readln(x); {считываем}</span>
a:=1;
<span>repeat</span>
writeln(a,' попытка выбор компьютера пал на - ');
<span>y:=random(x)+1; {задаем промежуток рандомом}</span>
write(y);
<span>if x=y {сравниваем} then c:=true; {выходим из цикла в случае успеха}</span>
<span>until c; {если с=true тогда выход из цикла, иначе крутимся дальше}</span>
writeln('Компьютер сделал ',a,' попыток.');
<span>end.</span>
<span>
</span>
Более доработанная и понятная, если возникают какие-то вопросы - пиши в личку.
<span>1920x1080 расшерение екрана </span>
Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
Ответ 44 сек
Жесткие диски, флеш карты, касеты.
Ударяющий по клавише палец не должен прогибаться, а другие пальцы не должны подниматься со своих мест. После удара по любой клавише зоны «ответственности» палец должен возвращаться на своё основное место. Руки располагайте над вторым основным рядом клавиатуры. Пальцы сгибайте так, будто в каждой руке держите яблоко