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

Question

Информатика

Ледя

8 мая, 08:37

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

+4

Ответы (2)

Знаешь ответ?

Коня · Answer 1

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.

Федосей · 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.