Var i,s:integer;
begin
s:=0;
for i:=20 to 450 do
if (i mod 4 = 0) then s:=s+i;
writeln(s);
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(2,200,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.
<u>Результат</u>
118305033024544857808171402556304773068330423943453950860219552506842483018552459750131300382609551649116952455583587373444882662176634718152559553931916976653860864000000000000000000000000
На 1 монитор на 2 сканер.
===== PascalABC.NET =====
begin
var a := 1.7 * (4.9 - 7.23 / 4.8) + 3.4;
var b := 1.2314 + 8.85 ** 5;
var c := 0.00354 / (347 + 526.71) * 0.21;
PrintLn(a, b, c)
end.
Результаты:
9.169375 54290.7953553125 8.50854402490529E-07
Ответ:
2000 байт
Объяснение:
40 * 50 = 2000 количество символов в тексте
2000 * 1 = 2000 байт 2000 информационный объём текста
I = К * i, где
I - информационный объём текста
К - количество символов в тексте
i - информационный вес символа