Для каждого четырёхзначного числа из диапазона от A до B включительно ( A меньше B)требуется найти произведение средних разрядов (сотни, десятки), и вычислить сумму этих произведений.Например, если на вход программы подать A=...
Для каждого четырёхзначного числа из диапазона от A до B включительно
( A
Гость
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы