Program gg;
var count: integer;
begin count := 1 * 4 + 2 * 4 + 3 * 4 + 4 * 4 + 4 * 5 + 4 * 6 + 4 * 7 + 4 * 8 + 4 * 9; writeln(count);<span>end.</span>
Var f,i,x: Integer;
begin
writeln('введите F:');
readln(f);
x:=1;
for i:=f to 10 do x:=i*x;
writeln('Вывод: ',x);
end.
print("Рубли: ", end="")
a = int(input())
print("Копейки: ", end="")
b = int(input())
print("Количество: ", end="")
n = int(input())
a *= n
b *= n
while b >= 100:
a +=1
b -=100
print(f"Стоимость:\nРублей - {a}\nКопеек - {b}")
Program pr;
uses crt;
Var
i,n:integer;
Procedure del(a:integer);
Var i:integer;
Begin
i:=1;
while (a div i<>0) do
Begin
if (a mod i=0)
then Writeln(i);
i:=i+1;
end;
end;
Begin
Writeln('Vvedite chislo');
readln(n);
del(n);
readln;
end.