Ну вот тебе на паскале. Program xxx;
var
a,i:integer;
begin
Randomize;
for i:=1 to 30 do
begin
a:=Random(10)+1;
writeln(a);
end;
readln; {офк чтобы увидеть результат}
end.
Добавлено (31-03-2011, 13:46)
---------------------------------------------
Ну простенькое так простенькое.
Программа, вычисляющая факториал вводимого числа (факториал = произведение всех натуральных чисел до этого включительно, т.е. факториалы 2! = 2, 3! = 6, 4! = 24 и так далее)
