Написать программу в паскале Pascal АВСЗадания для самостоятельного решения 1) Известно

Написать программу в паскале Pascal АВС
Задания для самостоятельного решения

1) Известно количество символов в каждой строке, количество строк на страничке. Написать про-грамму, вычисляющую число знаков на странице.
2) Составить программку, запрашивающую при помощи операторов ввода-вывода: заглавие куп-ленного товара, количество и цену за единицу. После вычислений и очистки экрана выдаются последующие известья: заглавие продукта и его общая цена.
3) Знаменито оклад сотрудника, количество отработанных дней и число рабочих дней в месяце. Составить программку нахождения заработной платы сотрудника, с учетом вычетов подоходного налога (13%) и пенсионного налога (1%).

Задать свой вопрос
Берзиньш Алёна
Быстрей всего, они никаких пояснений не сказали
Брегов Алеша
А в PascalABC.NET можно ведь сделать эти задания?
1 ответ
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт