1)у асхата есть жёсткий диск объёмом 4 гб. сколько книг может хранить асхат на этом диске(каждая книга состоит из 400 страниц, на каждой странице 50 строк по 40 символов каждая.(1 символ=1 байт) нужно
Итак: 1 символ = 1 байт. всего 400 страниц На одной странице 50 строк по 40 символов, т.е. 50*40 = 2000 символов на одной странице 2000 * 400 (страниц) = 800000 символов в книге Переводим 800000 символов = 800000 байт = 800 килобайт = 0,8 мбайт = 0,0008 гбайт В одном гбайте - 1000000 кбайт С.л. 1000000 * 4 = 4000000 кбайт 4000000 кбайт (размер диска) делим на 800 кбайт (размер одной книги) = 5000 книг
Const n=10; var i,j,mn,mnin,k,ind: integer; a: array[1..n] of integer; begin writeln('исходный массив:'); randomize; for i:=1 to n do begin a[i]:=random(-n,n); write(a[i],' '); if ((a[i] mod 2)<>0) and (a[i]<>0) then ind:=i; end; writeln; // сортировка for i:=1 to ind-2 do begin mn:=a[i]; mnin:=i; for j:=i to ind-1 do if a[j]<mn then begin mn:=a[j]; mnin:=j; end; k:=a[i]; a[i]:=a[mnin]; a[mnin]:=k; end; writeln('новый массив:'); for i:=1 to n do write(a[i],' '); end.
Var a:array[0..9] of integer; { число повторений } i,n,d,p:integer;
begin Write('n = '); Read(n); for i:=0 to 9 do a[i]:=0; { обнулить счетчики } p:=1; for i:=2 to n do p:=p*i; Writeln(n,'! = ',p); while p>0 do begin d:=p mod 10; a[d]:=a[d]+1; p:=p div 10 end; Writeln('Количество повторений цифр в числе:'); for i:=0 to 9 do if a[i]>0 then Write(i,'-',a[i],' '); Writeln end.
Пример n = 9 9! = 362880 Количество повторений цифр в числе: 0-1 2-1 3-1 6-1 8-2
второй вариант
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var p:=2.to(n).Aggregate(1,(a,b)->a*b); // факториал Writeln(n,'! = ',p); Writeln('Количество повторений цифр в числе:'); foreach var i in p.ToString.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]) do Write(i[0],'-',i[1],' '); Writeln end.
1 символ = 1 байт.
всего 400 страниц
На одной странице 50 строк по 40 символов, т.е. 50*40 = 2000 символов на одной странице
2000 * 400 (страниц) = 800000 символов в книге
Переводим 800000 символов = 800000 байт = 800 килобайт = 0,8 мбайт = 0,0008 гбайт
В одном гбайте - 1000000 кбайт
С.л. 1000000 * 4 = 4000000 кбайт
4000000 кбайт (размер диска) делим на 800 кбайт (размер одной книги)
= 5000 книг