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

UptoLike

ВУЗ: 

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

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

Рубрика: 

88
writeln('–––––––––––––––––––––––––––––––––––––––––––');
c:=c+z;
end;
writeln('средняя зарплата за ',K,' месяцев = ',с/k:4);
end;
writeln('––––––––––––––––––––––––––––––––––––––––––––');
writeln;
writeln('Для окончания работы нажмите ENTER');
readln;
end.
Пример 4.13. Вычисление числа в факториале.
program k4;
var
y, i, p:integer;
begin
writeln('Вычисление числа в факториале ');
writeln;
y:=1;
writeln('введите целое число { меньше 18 } ');
readln(p);
for i:=2 to p do
y:=y*i;
writeln('Число ',p,'!= ',y);
writeln;
writeln('для окончания работы нажмите ENTER');
readln;
end.
Пример 4.14. Вычисление числа в факториале.
program k4;
var
y,i,p:integer;
begin
writeln;
writeln(' Вычисление числа в факториале ' );
writeln;
y:=1;
writeln(' Введите целое число { меньше 18 } ');
readln(p);
for i:=p downto 2 do
y:=y*i;
writeln('число ',p,'!= ',y);

Страницы