Program tz; var a,b,c:integer; i:byte; begin writeln('vvedite 4x znachnoe chislo'); readln(a); b:=1; c:=0; for i:=1 to 4 do begin b:=b*(a mod 10); a:=a div 10; c:=c+(a mod 10); end; writeln('proizvedenie = ',b); writeln('summa = ',c); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
