Алгоритмы и программы. Афанасьева Т. В - 87 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

87
program k7;
var
k,i:integer;
n,y:longint;
begin
writeln;
writeln(' Возведение числа в степень ');
y:=1;
writeln('введите число, возводимое в степень');
writeln(' { число должно быть меньше 20 }');
readln(k);
writeln('введите целую степень { меньше 5 }');
readln(n);
for i:=1 to n do y:=y*k;
writeln;
writeln('число ',к,' в степени ',n, '= ',y);
writeln;
writeln('Для окончания работы нажмите ENTER');
readln;
end.
Пример 4.12. Вычисление:
1: величины отчисления в подоходный налог ежемесячно,
2: среднемесячной зарплаты за текущий период.
program k5;
var
i,k:integer;
p,z,c,s:real;
begin
writeln('вычисление:');
writeln(' 1: величины отчисления в подоходный налог
ежемесячно');
writeln(' 2: среднемесячной зарплаты за текущий период ');
writeln;
writeln('введите количество месяцев ');
read(k);
writeln('введите процент подоходного налога ');
read(p);
c:=0;
for i:=1 to k do
begin
writeln('введите зарплату за ',I,' месяц ');
read(z);
writeln('подоходный налог за ',I, ' месяц = ',p*z:4);

Страницы