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
Это по сути троичная система счисления, только вместо цифр 0,1,2 тут символы.
Количество слов будет таким же, как и количество одно- и двухзначных чисел в троичной системе:
3² = 9
вот они все:
1) АА
2) АБ
3) АВ
4) БА
5) ББ
6) БВ
7) ВА
8) ВБ
9) ВВ
Ответ: существует 9 разных двухсимвольных слов.
Begin
writeln('55555');
<span>writeln('4444');
</span><span>writeln('333');
</span><span>writeln('22');</span>
end.