Есть ответ 👍

ИНФОРМАТИКА 8 КЛАСС ​

121
386
Посмотреть ответы 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.

Популярно: Информатика