Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
writeln('answer is: ', a1+a2);
end.
I - объём информации;
I=k*i, где k - количество символов;
i - количество информации, которое содержит 1 символ;
Так как алфавит содержит 256 символов ⇒ i=8 (бит);
k=30*70*5=10500 (символов);
I=10500*8=84000 (бит);
84000 (бит)=10500 (байт);
Ответ: 10500 байт.
Ответ:
var
a,b,c,n,s: integer;
begin
readln(n);
if ((n>99) and (n<1000)) then
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
writeln('Сумма трех цифр равна ',s);
end else writeln('Введите трехзначное число!');
end.
Объяснение:
В нэте есть я это тоже позавчера делал)
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000