Для каждого четырёхзначного числа из диапазона от A до B включительно
( A<B)требуется найти произведение средних разрядов (сотни, десятки), и вычислить сумму этих произведений. Например, если на вход программы подать A=1234 и B=1236, должно быть выведено 18.
Задача: Выполнить данную программу для A=1234 и B=9876. Это ответ №1.
Выполнить данную программу для A=4321 и B=5555. Это ответ №2.
Выполнить данную программу для A=2222 и B=7667. Это ответ №3.
В качестве окончательного результата найдите сумму всех трёх ответов.
Ответ
Автор - ЕнотЕнотыч
Program enot; Var i,a,b,n,f,g,v,p,s,c,j:integer; x: array[1..9999] of integer; begin read(a,b); n:=b-a+1; for i:= a to b do begin x[i]:=i; for j:= a to b do begin c:=j div 10; V:=c mod 10; f:=c div 10; G:= f mod 10; p:= v*g; end; s:=s+p; end; writeln(s); end.