11025000*32*10*2=7056000000 бит = 882000000 байт = 861328,125 Кб = 841,1407470703125 Мб
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
1/4 книги поместится в флэшку емкостью 256 мбайт
Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма чисел кратных 3 равна ',sum);
end.<span>
</span>
<em>Общ.утв - Все люди любят когда их хвалят Каждый человек на земле может путешевствоватьВсе животные имеют обмен веществ Частн.утв - Некоторые животные уже вымерлиНекоторые люди болеют раком Некоторые бабочки не могут летать из - за нехватки пыльцы на крыльях Обществ.сужНи один из людей не может слетать на солнце Ни один из животных не может говорить по человечьему языку (кроме попугая)Ни один из новорожденных детей не может бегать Частн.сужНекоторые компьютеры не являются рабочими Некоторые животные не являются вымершими</em><span><em>Некоторые люди не являются животноводами</em></span>