Переделать программу в процедуру program nolik; uses crt; var x,y: integer; begin repeat x: =40; y: =1; repeat gotoxy(x,y); write (0); y: =y+1; x: =x+3; delay(100); clrscr; until x> 70; repeat gotoxy(x,y); write(0); y: =y+1; x: =x-3; delay(100); clrscr; until y> 24; repeat gotoxy(x,y); write(0); y: =y-1; x: =x-3; delay(100); clrscr; until x< 4; repeat gotoxy(x,y); write(0); y: =y-1; x: =x+3; delay(100); clrscr; until y< 3; until keypressed; readln; end.

Двумя байтами (от 0 до 255) можно записать адрес для 65536 ячеек памяти (от 0 до 65535). Для большего количества ячеек адрес должен иметь больше байтов.

Дополнительная информация

ОЗУ обеспечивает режимы записи, считывания и хранения информации, причем в любой момент времени возможен доступ к любой произвольно выбранной ячейки памяти. Принципиальной особенностью ОЗУ является его хранить информацию только во время работы ПК. После загрузки новой программы, прежнее содержимое ОЗУ замещается новым, после выключения ПК пропадает вовсе.

логическая сумма двух выражений равна 0 когда каждое слагаемое равно 0

Значит ((x-10)(x+1)≤0)∧(x*x>A)≡0 и ((y*y≤A)∧((y-10)(y+1)>0)≡0

Логическое умножение равно 0 когда или оба множителя равны 0 или один из них

Рассмотрим первое выражение, первый его множитель не зависит от А, поэтому оно должно быть ложно. т.е. (x-10)(x+1)>0ю Учитывая условие задание, что х≥1, то x>10 и наименьшее целое из этого х=11

Тогда второй множитель x*x>A будет 11*11>A; A<121

Аналогично рассуждая для второго выражения с у, получу

(y-10)(y+1)≤0; y=[-1;10] , по условию y≥1, значит y=[1;10]

тогда y*y≤A; наибольшее y=10; 10^2≤A; A≥100

Учитывая полученные условия по А:  A<121 и A≥100-выходит

A={100; 101;...120}-всего 21 целое значение