1. Составьте в тетради блок-схему алгоритма для приведенного фрагмента проекта 1 запишите ход его выполнения. 2. Откройте среду разработки выполнения проектов. 3. Составьте проект для рисования четырех квадратов, расположенных рядом. Длина стороны первого из них доривнюеа шагов, а длина стороны каждого наступного- на Ь шагов больше длины стороны предыдущего. 4. Сохраните составлен проект в папке в файле с именем практическая 8. 5. Закройте среду разработки и выполнения проектов
Var n,i,j,resi,resj,flag:integer; begin flag:=0; i:=1; readln(n); while power(i,3)<n do begin j:=1; while power(j,3)+power(i,3)<=n do begin if power(j,3)+power(i,3)=n then begin flag:=1; resi:=i; resj:=j; break; end; inc(j); end; if flag=1 then break; inc(i); end; if flag=1 then writeln(resi,' ',resj,' ',resj,' ',resi) else writeln('impossible'); end.
Пример ввода: 1008 //2^3+10^3 Пример вывода: 2 10 10 2
С начало узнаем сколько занимает объем информации одна строка. Умножим количество страниц на количество строк в одной страницы чтобы найти сколько всего строк. 40*4=160 строк.Разделим объем информации на количество строк и узнаем сколько занимает одна строка объем информации. 7200/160=45 байт. переведем их в биты 45*8=360 бит. 64 символа можно закодировать 6 битами т.е. 2 в 6 степени. 1 символ 6 бит. Разделим объем информации одной странницы на объем информации одного символа и получим сколько всего символов в одной строке. 360/6=60 символов. ответ: в одной строке 60 символов.
Var
n,i,j,resi,resj,flag:integer;
begin
flag:=0;
i:=1;
readln(n);
while power(i,3)<n do
begin
j:=1;
while power(j,3)+power(i,3)<=n do
begin
if power(j,3)+power(i,3)=n then
begin
flag:=1;
resi:=i;
resj:=j;
break;
end;
inc(j);
end;
if flag=1 then break;
inc(i);
end;
if flag=1 then writeln(resi,' ',resj,' ',resj,' ',resi) else writeln('impossible');
end.
Пример ввода:
1008 //2^3+10^3
Пример вывода:
2 10 10 2
ответ: в одной строке 60 символов.