Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
<span>64 символа => 2^6=64 => 6 бит/символ </span>
<span>7200 байт = 7200*8 = 57600 бит </span>
<span>57600/6=9600 символов в сообщении </span>
<span>9600/3/40=80 символов в строке</span>
Var
n, a, b, c, d, s, p: integer;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
if (n > 9999) or (n < 1000) then Writeln('Число должно быть четырехзначным')
else begin
a := n div 1000; d := n mod 10; n := (n div 10) mod 100;
b := n div 10; c := n mod 10;
s := a + b + c + d;
p := a * b * c * d;
Writeln('Сумма цифр равна ', s, ', а их произведение равно ', p)
end
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 2345
Сумма цифр равна 14, а их произведение равно 120
Так как результат вычислений надо получить в десятичной системе счисления, то переведем все числа, которые нам даны, в десятичную систему счисления. Затем найдем значение выражения, как принято в математике.
30*32=960-строчек всего
960*62=59520-символов всего
59520*8=476160-кб 1 книга
<span>476160*3=1428480-3 книги в кб
примерно так ,у меня похожее задание было </span>