Документы , разную инфу ( про разные новости _)
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
Я думаю это ответ 3 но впринципе
Но мне надо написать ещё 20 символов чтобы отправить тебе этот ответ
4- неподойдёт , так как bmp является форматом хранения
1. Источник - светофор, приёмник - вы.
2. Обмен информацией. Поочередно то компьютер источник, вы - приёмник, то наоборот.
3. Телевизор - источник, члены семьи - приёмники.
4. Вы любуетесь цветами, растущими на клумбе. Цветы - источники, вы - приёмник.