Это в экселе?? произведение =<span>3 628 800</span>
1.
program list;var x,y,a,b:integer;beginwriteln('Введите размер листа x на y');readln(x,y);writeln('Введите размер изображения a на b');readln(a,b);if (x>a) and (y>b) thenwriteln('Можно разместить')elsewriteln('Нельзя разместить');end.
2.
program opred;var i,n:integer; natch:string; cif: char;beginwrite('Введите натуральное число N: ');readln(natch);write('Введите цифру A: ');readln(cif);n:=length(natch);if natch[n]=cif then write('Верно')elsewriteln('Неверно');end.
3.program opred;var i,n,g,sum,max,kol:integer; chis: array[1..100] of integer;beginwriteln('Вводите числа: ');i:=0;repeat i:=i+1;readln(chis[i]);until(chis[i]=0);n:=i-1;for i:=1 to n do //asum:=sum+chis[i];writeln('a) sum = ',sum);for i:=1 to n do //bbeginif (chis[i]<0) and (chis[i] mod 2 = 0) thenkol:=kol+1;end;writeln('b) kol = ',kol);for i:=1 to n do beginif chis[i]>chis[i+1] thenmax:=chis[i];end;writeln('c) max = ',max);end.
Аудиофайл для колонок.
Видеофайл для монитора.
Текстовый файл для монитора.
Графический файл для монитора.
Скорее всего неверный подбор - принтер. Объясни свой вопрос поподробнее.
Сравнить с 1Мбайтом не очень понятно.
2. 20480бит=2560байт=320Кбайт < 1Мб
3. 5Мбайт=5120 Кбайт=5242880байт=41943040бит>1Мбайт
4. 153600байт=150 Кбайт<1Мбайт
5. 6Кбайт=6144 байт=49152 бит<1Мбайт
mov ax,1
mov bx,ax
<span> mov cx,99
</span><span>a: add ax,2
add bx,ax
cmp ax,cx
</span><span> jne a
mov ax,bx
</span><span> mov bl,10
</span><span> mov cx,0
</span><span>b: div bl ; в ah - частное, al - остаток
</span><span> add al,48 ; в al - код младшей цифры
</span><span> push al
</span><span> inc cx
</span><span> cmp ah,0
</span><span> jne b
</span><span> ; вывод на экран через BIOS
</span><span>c: mov ah, 0eh
</span><span> pop al
</span><span> int 10h ; вывод символа
</span><span> dec cx
</span><span> jnz c
</span><span> ; завершение программы
</span><span> mov ah, 4ch
</span><span> mov al,00h
</span><span> int 21h
</span><span>
</span>