1) Var n,m,max,min:integer; Begin write('Введите число: '); readln(n); min:=9; max:=0; while n>0 do begin m:=n mod 10; if m<min then min:=m; if m>max then max:=m; n:=n div 10; end; writeln('Максимальное число: ',max); writeln('Минимальное число: ',min); End. 2) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
1. Процессор; 2. Тачпад; 3. Floppy disk; 4. Файл; 5. На тип данных, хранящихся в нем; 6. Презентация; 7. rtf, doc, docx, txt; 8. Служит для размещения данных и промежуточных результатов вычислений в процессе работы ПК, а также размещения программ; 9. Комплекс программ ПК, управляющих его работой и обеспечивающих эффективное использование ресурсов системы; 10. На системное, прикладное, системы программирования;
1. D:\HOME\HELP\readme.txt; 2. Ване не стоит брать диски 2 и 3, т.к.: -второй диск имеет частоту 2ГГц, превышающая тактовую частоту компьютера; -третий диск имеет больший объем ОП, чем его компьютер.
33554432 байт
Объяснение:
256*1024=262144Кбит
262144*1024=268435456бит
268435456/8=33554432байт
Надеюсь что