Question

Створити у середовищі Паскаль програми для обчислення завдань. Надіслати або два посилання, або два файли з програмами.

Вправа 1.(5б) Визначити, яку платню одержить на фірмі сумісник за виконану роботу, якщо йому нараховано S грн., а податок становить 20 відсотків. Необхідні змінні:
S - сума нарахувань сумісника;
P - реальна платня, що він одержить у касі (за умовою вона становить 80% від нарахувань).

Answer 1

program CalcPayment;

var

 s, p: real;

begin

 Writeln('Введіть зарплату партнера: ');

 Readln(s);

 p := s * 0.8;

 Writeln('Партнер отримує ', p:2:2, ' UAH після сплати податків.');

end.