Легко там делай сам подумай и всё лоды
254 : 2 = 127 (остаток от деления 0)
127 : 2 = 63 ( остаток от деления 1)
63 : 2 = 31 ( остаток от деления 1)
31 : 2 = 15 ( остаток от деления 1)
15 : 2 = 7 ( остаток от деления 1)
7 : 2 = 3 ( остаток от деления 1)
3 : 2 = 1 ( остаток от деления 1)
Остаток от деления записывается в обратном порядке, получаем:
254 = 11111110
Var
cl,lp:integer;
begin
Write('Количество символов в строке- '); Read(cl);
Write('Количество строк на странице- '); Read(lp);
Writeln('Количество символов на странице: ',cl*lp)
end.
<u>Пример</u>
Количество символов в строке- 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.
<u>Результаты работы программы даны во вложениях</u>
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.
<u>Пример</u>
Оклад, руб- 46420
Отработано дней- 19
Рабочих дней- 22
Начислено, руб: 40090.00
Подоходный налог, руб: 5211.70
В Пенсионный фонд, руб: 400.90
Итого налогов, руб: 5612.60
К выдаче, руб: 34477.40
У китайцев направления не лево право, а стороны света, с учетом того, что они производят почти всю электронику, можно предположить, что это от них пошло