Var
a,b,c : integer;
begin
readln(a,b,c);
if (a < b) and (a < c) then writeln(a);
else if (b < a) and (b < c) then writeln(b);
else if (c < a) and (c < b) then writeln(c);
else writeln('Числа равны');
end.
Можно проанализировать работу цикла по шагам (берутся при расчете всегда текущие, т.е. последние значения переменных). Цикл с параметром i выполняется 5 раз:
1 шаг. i=1, f=f*i=1*1=1
2 шаг. i=2, f=1*2=2
3 шаг. i=3, f=2*3=6
4 шаг. i=4, f=6*4=24
5 шаг. i=5, f=24*5=120
В результате вычисляется то, что называется факториалом числа (обозначается знаком !), в данном случае 5!
8 Мбайт = 8 * 1024 Кбайт = 8 * 1024 * 1024 байт = 8 * 1024 * 1024 * 8 бит = 67 108 864 бит
Ответ:
10234 * 157 = 1606738
1606738/8=200842 (остаток 2
)
200842/8=25105 (остаток 2
)
25105/8=3138 (остаток 1
)
3138/8=392 (остаток 2
)
392/8=49 (остаток 0
)
49/8=6 (остаток 1
)
6/8=0 (остаток 6)
1606738 (10) = 6102122 (8)
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Println; // 1
SeqGen(n, i -> a[i] / Sqr(i + 1)).Sum.Println; // 2
a.Count(p -> (p mod 3 = 0) and (p mod 10 = 7)).Println; // 3
a.Where(p -> p.IsEven and (p > 0)).Sum(p -> Sqrt(p)).Println; // 4
// 5
var m := a.Min;
if m < 0 then
Println(m)
else
Println('Нет отрицательных чисел')
end.