втрое и 5 условие надо провериить... .....
А) a = 9
b = 9 mod 5 = 4
b = 4*10 = 40
a = 40 div 4 - 3 = 5
б) a = 123
b = 123 div 10 = 12
b = 12/4+2 = 5
b = 5*25+2 = 127
a = 123+127 = 250
в) a = 951
b = 951 div 100 + 951 mod 100 = 9 + 51=60
a = 951 div 10 = 95
a = 95 mod 10 = 5
a = 95+5=100
program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.