Program procenti;
Var Summ:real; k:integer;
begin
writeln('введите процент');
Readln(k);
Summ:=387*(0.2*k);
Writeln('Summ=', summ)
end.
<span>Процессы, связанные с поиском, хранением, передачей, обработкой и использованием информации, называются информационными процессами Источник: Информационны">http://center-yf.ru/data/stat/Informacionnye-processy.php'>Информационные процессы</span>
нц
для i от 1 до 2
S := 0
нц
для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
S = (2 + 2 + 1) + (2 + 2 + 2) + (2 + 3 + 1) + (2 + 3 + 2) = 5 + 6 + 6 + 7 = 24
<em><u>Код на Паскале:</u></em>
Program proba;
Uses crt;
Var n,s:integer;
Begin
writeln('введите натуральное число');
Readln(n);
s:=0;
repeat s:=s+n mod 10;
n:=n div 10;until n=0;
writeln('сумма цифр ',s);
<span>end.
<em><u>P.S. Программа вычисляет не только трехзначные числа ;)</u></em></span>