Вопрос не полный. В какой именно кодировке ?
<span>Кодировка windows 1251 является 8 битной => </span>
<span>Кол-во информации = 8*100 = 800 бит /сек </span>
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
<em><u>Для сред программирования DOS (например, Turbo Pascal) удалите фигурные скобки, для сред Windows (например, PascalABC.Net) строки в фигурных скобках удалите полностью.</u></em>
{uses Crt;}
const
n=80;
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string[80];
i:integer;
begin
{ClrScr;}
Writeln('Введите текст (учитываются только 80 первых символов)');
Readln(s);
for i:=1 to n do
if s[i] in digits then Write(s[i]);
Writeln;
for i:=1 to n do
if not(s[i] in digits) then Write(s[i]);
Writeln;
{ReadKey}
end.
<em><u>Тестовое решение:</u></em>
Введите текст (учитываются только 80 первых символов)
Обь с притоком Иртыш 5410км, Амур с Аргунью 4440км, Лена 4400км, Енисей 4102км
5410444044004102
Обь с притоком Иртыш км, Амур с Аргунью км, Лена км, Енисей км
В паскале: Inc(n);
В С++: n++;
Примеры декларативного знания: монитор имеет квадратную форму, трава желтеет, вода мокрая, лед скользкий, ножи острые, перец острый.
Примеры процедурных знаний: что бы приготовить яичницу, нам нужно разбить яйца и жарить их в течении 5 минут.