Сдав доклад по географии на отлично ученик перенес папку полный путь до которой был /школа/ география/ Египет/ в папку Сданные расположенные в корне диска C Укажите полный путь к файлу пирамиды.txt расположены в папке Египет
Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer; begin f := 3001; l := 0; r := 65534; x := (l + r) div 2; k := 1; while (x <> f) and (l < r) do begin writeln(k,' ',l,' ',r,' ',x); k := k + 1; if f < x then r := x - 1 else l := x + 1; x := (l + r) div 2 end; writeln(k,' ',l,' ',r,' ',x); end.
Var cl,lp:integer; begin Write('Количество символов в строке- '); Read(cl); Write('Количество строк на странице- '); Read(lp); Writeln('Количество символов на странице: ',cl*lp) end.
Пример Количество символов в строке- 68 Количество строк на странице- 45 Количество символов на странице: 3060
uses Crt; var nt:string; { наименование товара } kt:real; { количество товара } ct:real; { цена товара за единицу } begin Write('Наименование товара- '); Readln(nt); Write('Количество товара- '); Read(kt); Write('Цена за единицу товара- '); Read(ct); ClrScr; Writeln(nt,' - ',ct*kt:0:2) end.
Результаты работы программы даны во вложениях
const podn=0.13; { подоходный налог } pensf=0.01; { в Пенсионный фонд } var os:real; { оклад сотрудника } nd:integer; { количество отработанных дней } nr:integer; { количество рабочих дней в месяце } nach:real; { начислено } sp:real; { сумма подоходного налога } spf:real; { сумма отчислений в ПФ } nzp:real; { итого начислений на зарплату } svyd:real; { сумма к выдаче } begin Write('Оклад, руб- '); Read(os); Write('Отработано дней- '); Read(nd); Write('Рабочих дней- '); Read(nr); nach:=os*nd/nr; { может получиться нецелое число } { округлим до сотых долей } nach:=Round(nach*100)/100; sp:=nach*podn; sp:=Round(sp*100)/100; spf:=nach*pensf; spf:=Round(spf*100)/100; nzp:=sp+spf; svyd:=nach-nzp; Writeln('Начислено, руб: ',nach:0:2); Writeln('Подоходный налог, руб: ',sp:0:2); Writeln('В Пенсионный фонд, руб: ',spf:0:2); Writeln('Итого налогов, руб: ',nzp:0:2); Writeln('К выдаче, руб: ',svyd:0:2) end.
Пример Оклад, руб- 46420 Отработано дней- 19 Рабочих дней- 22 Начислено, руб: 40090.00 Подоходный налог, руб: 5211.70 В Пенсионный фонд, руб: 400.90 Итого налогов, руб: 5612.60 К выдаче, руб: 34477.40
1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190 -> 4095
5. 0..4094 -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001
Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
begin
writeln(k,' ',l,' ',r,' ',x);
k := k + 1;
if f < x then r := x - 1
else l := x + 1;
x := (l + r) div 2
end;
writeln(k,' ',l,' ',r,' ',x);
end.
cl,lp:integer;
begin
Write('Количество символов в строке- '); Read(cl);
Write('Количество строк на странице- '); Read(lp);
Writeln('Количество символов на странице: ',cl*lp)
end.
Пример
Количество символов в строке- 68
Количество строк на странице- 45
Количество символов на странице: 3060
uses Crt;
var
nt:string; { наименование товара }
kt:real; { количество товара }
ct:real; { цена товара за единицу }
begin
Write('Наименование товара- '); Readln(nt);
Write('Количество товара- '); Read(kt);
Write('Цена за единицу товара- '); Read(ct);
ClrScr;
Writeln(nt,' - ',ct*kt:0:2)
end.
Результаты работы программы даны во вложениях
const
podn=0.13; { подоходный налог }
pensf=0.01; { в Пенсионный фонд }
var
os:real; { оклад сотрудника }
nd:integer; { количество отработанных дней }
nr:integer; { количество рабочих дней в месяце }
nach:real; { начислено }
sp:real; { сумма подоходного налога }
spf:real; { сумма отчислений в ПФ }
nzp:real; { итого начислений на зарплату }
svyd:real; { сумма к выдаче }
begin
Write('Оклад, руб- '); Read(os);
Write('Отработано дней- '); Read(nd);
Write('Рабочих дней- '); Read(nr);
nach:=os*nd/nr; { может получиться нецелое число }
{ округлим до сотых долей }
nach:=Round(nach*100)/100;
sp:=nach*podn; sp:=Round(sp*100)/100;
spf:=nach*pensf; spf:=Round(spf*100)/100;
nzp:=sp+spf;
svyd:=nach-nzp;
Writeln('Начислено, руб: ',nach:0:2);
Writeln('Подоходный налог, руб: ',sp:0:2);
Writeln('В Пенсионный фонд, руб: ',spf:0:2);
Writeln('Итого налогов, руб: ',nzp:0:2);
Writeln('К выдаче, руб: ',svyd:0:2)
end.
Пример
Оклад, руб- 46420
Отработано дней- 19
Рабочих дней- 22
Начислено, руб: 40090.00
Подоходный налог, руб: 5211.70
В Пенсионный фонд, руб: 400.90
Итого налогов, руб: 5612.60
К выдаче, руб: 34477.40