Program z1; Var n,d,s,l: integer; Begin write('Введите число = '); readln(n); l:= 1; s:= 0; while n > 0 do begin d:=n mod 10; if (d = 7) then d:=8; d:= d * l; s:= s + d; l:= l * 10; n:= n div 10; end; writeln(s);End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
