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
Ответ:
Есть программа FCEditor, рисует блоксхемы по коду в Pascal
Объяснение:
Голубая. Потому что тот ничего не исполняет. Машина (забыла как называется) исполняет перевозку. Шкаф исполняет "хранение".
Пожарный или кто там... Исполняет (если пожарник), то исполняет роль "человека"
Налить в 9литровое
Перелить в 5литровое
Вылить из 5литрового
Перелить в 5литровое
Налить в 9литровое
Перелить в 5литровое
Вылить из 5литрового
Перелить в 5литровое
Вылить из 5литрового
В 9литровом останется 3л
Если мощность алфавита N=256 символов, значит один символ "весит" i=8 бит=1 байт, т.к.N=2^i
Информационный объем текста=количество символов в тексте*"вес" символа ( I=K*i). Отсюда: K=I/i=1.5Кбайта/1байт=1.5*1024=1536 символов