Var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
Uses crt;var c,i,j,n:integer;a:array [1..1000] of integer;begin clrscr;read(n);for i:=1 to n doread(a[i]);for i:=1 to n dofor j:=1 to n-1 doif (a[j] mod 10) > (a[j+1] mod 10) then beginc:=a[j];a[j]:=a[j+1];a[j+1]:=cend;for i:=1 to n dowrite(a[i],' ')<span>end.</span>
Дано:
Книга содержит 15 страниц.
На каждой странице - 20 строк.
В каждой строке 40 символов
1) 15 * 20 * 40 = 1200 - символов всего.
2) 1200 * 6 = 72000 байтов = 70.31 килобайтов
Ответ: 70.31 килобайтов.
Есть текстовый файл, его размер 3,5 КБайта = 3,5*1024 = <span><span><span>
3584</span> байт
Если 1 байт равен одному символу, чаще всего именно так и обстоит, но бывает и иначе - то в этом тексте у нас будет </span></span><span><span><span>
3584</span> символов.</span></span>
a = 3
b = 11
a = 11 - 3*2 = 11 - 6 = 5
b = 50 / 5 * 4 = 10 * 4 = 40
Ответ: 40.