Было проведено 10 запусков этой программы, при которых в качестве значений переменных x и y вводились следующие пары чисел: (240, 180); (150, 200); (210, 200); (130, 150); (190, 140); (210, 170); (180, 210); (170, 90); (210, 210); (200, 150)Сколько было запусков, при которых программа напечатала «ДА»? var x, y: integer; begin readln(x); readln(y); if (y >= 150) and (x <= 200) then writeln(' ДА') else writeln(' HET') end.

1) var a:array[1..10] of real;
i:integer;

begin

randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;

writeln;

for i:=1 to 10 do 
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);

end.

2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: '); 
for i:=1 to n do
read(a[i]);

s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];

writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.

Решение: Разрешающая сканера 300 dpi (dot per inch - точек на дюйм) означает, что на отрезке длиной 1 дюйм сканер различить 300точек.

Переведем разрешающую сканера из точек на дюйм (1 дюйм = 2,54 см) в точки на сантиметр:

300dpi : 2,54 ≈ 762 точек/см.

Следовательно, размер изображения в точках составит

76200х76200 точек.

Общее количество точек изображения равно:

76200 · 76200 = 5 806 440 000.

Информационный объем файла равен:

32 бита · 5 806 440 000 = 1 185 806 080 000 бит ≈  22 681 406 Кб ≈ 22 150Мб ≈ 21 Гб