Question

задано натуральное четырехзначное число . В нем заменили все цифры , большие 5,на 1.Найти полученное число

Answer 1

Var x,a,c,t:integer;
begin
readln(x);
c:=0;
t:=1;
while x<>0 do begin
a:=x mod 10;
if a > 5 then
a:=1;
c:=a*t+c;
t:=t*10;
x:=x div 10; end;
write(c);
readln
end.

Answer 2

Program p13;
const n=4;
var s:string;
i:integer;
begin
writeln('wwedite stroku');
readln(s);
for i:=1 to length(s) do
if s[i]>'5' then s[i]:='1';
writeln('s=',s);
readln;
end.  

Answer 3

Для того чтобы найти полученное число после замены всех цифр, больших 5, на 1, вам нужно выполнить следующие шаги:

1. Разбейте четырёхзначное число на отдельные цифры. Например, если ваше число - 3746, то разбейте его на 4, 7, 4 и 6.

2. Замените все цифры, большие 5, на 1. В данном случае цифры 7 и 6 больше 5, поэтому они заменяются на 1.

3. Соберите новое число из получившихся цифр. В данном случае получается число 1411.

Итак, полученное число после замены всех цифр, больших 5, на 1, это 1411.