85 баллов за ответ Задание 1. Дана программа:
var a, b,c, i:integer; x:rеаl;
begin
rеаd(a, b,c);
x := (b+c)/2;
fоr i:=a to b dо
if i mоd 2 <> 0 then
х:=x+i; x:=х*2;
writеln(x);
еnd.
Что она выведет на экран, если пользователь введет три числа: -2, 10, 1:
Укажите в таблице, что происходит на каждой итерации цикла:
Когда i = ;x =
Когда i = ; x =
Когда i = ; x =
Когда i = ; x =
Когда i = ; x = ...
Когда i = ;x = ...
Когда i = ;x = ...
Когда i = ;x = ...
Когда i = ;x = ...
Когда i = ;x = ...
​

эмм посмотри в интернете!!!!

Объяснение:

1мб/2=512 кб на одну страницу

512*1024*8=4194304 бит на одну страницу

800*600=480 000 пискселей на одну страницу

4194304/480 000=8,74 бит на 1 пиксель, округляем в меньшую сторону по битам=8

2⁸=256 количество цветов можно использовать

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.