Var n,f,i: integer;
begin
write('n = ');
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Пример:
<span>n = 6
6! = 720</span>
Простая задача, держи:
var a,b,c,d,n,j:integer;
begin
writeln('Стоимость монитора');
readln(a);
writeln('Стоимость системного блока');
readln(b);
writeln('Стоимость клавиатуры');
readln(c);
writeln('Стоимость мышки');
readln(d);
writeln('Сколько компьютеров нужно?');
readln(n);
j:=(a+b+c+d)*n;
writeln('Стоимость ', n, ' компьютеров = ',j);
end.
Машина малина шина молодец лапа молоток риск стих
Program zadanie;
Var a,b,c,n:real;
Begin
Writeln('Задайте число');
Readln(n);
Writeln('Введите 3 числа, больше заданного');
Readln(a,b,c);
If (a>n) and (b>n) and (c>n) Then
begin
a:=a*b*c;
Writeln('Произведение 3-х вводимых чисел=',a);
end
Else Writeln('Неверно введены числа');
End.
and-логическое "и"