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

Question

Информатика

Борюля

3 марта, 04:47

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

+2

Ответы (2)

Знаете ответ на вопрос?

Авксентий · Answer 1

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 2

Var x, a, c, t:integer;

begin

readln (x) ;

c:=0;

t:=1;

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