Для каждого четырёхзначного числа из диапазона от A до B включительно

(A

Question

Информатика

Володя

2 декабря, 13:13

Для каждого четырёхзначного числа из диапазона от A до B включительно

(A

+4

Ответы (1)

Знаете ответ на вопрос?

Нифонт · Answer 1

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.

Для каждого четырёхзначного числа из диапазона от A до B включительно(A

Для каждого четырёхзначного числа из диапазона от A до B включительно

(A