Дано натуральное число. заменить все 7 в данном - вопрос №788402978 от lolipop310 24.08.2020 04:30

Question

Информатика: Дано натуральное число. заменить все 7 в данном числе цифрами 8 (через mod) через паскаль !

lolipop310 · Answer

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....