Program fakt;
var
n,i,z:integer;
begin
readln(n);
z:=1;
for i:=2 to n do
z:=z*i;
writeln(z);
end.
Если программу написать так, то максимальный факториал, которой мы сможем вычислить - 12. Можно integer изменить на real, тогда чуть больше сможем вычислить. Так же можно вычислить через массив, тогда где-то 3000 мы сможем получить.
Если же ввести больше 12 в этой программе, то получится переполнение переменой, из-за чего число пойдёт "по кругу". Т.е. мы получим не 3 000 000 000, а -1 000 000 000, т.к. максимальное число у integer - примерно 2 000 000 000
Все приложения обрабатывают информацию.
var a,b,c:integer;
begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
end.
Алфавит системы счисления будет иметь вид
0 1 2 3 4 5 6 7 8 9 A B C D E
следующие 30 чисел
10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E
Звенит когда кто то звонит, на нем школьники делают уроки, если вставить его в компьютер, то можно смотреть фильмы, в ней пишут все произошедшее и свои мысли, маленькая,любит сыр, туда ходят учится, получать знания.