var a:Integer;
begin
readln( a );
write( (a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10) );
end.
Пояснение:
a - 4-значное число, тогда:
a div 1000 - первая цифра числа.
(a div 100) mod 10 - вторая цифра числа.
(a div 10) mod 10 - третья цифра числа.
a mod 10 - четвёртая цифра числа.
Трагтостроеник не хочу тебя увидеть и я
Program dsdasd;
var i,y: integer;
begin
y:=0;
For i:=-100 to 100 do
if i mod 10=5 then y:=y+i;
Writeln(y);
<span>end.
у будет равен 500. Считается он так: из чисел -100,-99,-98...98,99,100 остаток 5 при делении на 10 получается у чисел:
5, 15....75,85,95, то есть нужно эти 10 чисел сложить.</span>