1. Вывести сообщение об отсутствии цифры 1. (Пример. 200 –число не содержит 1, 221 –...

Question

1. Вывести сообщение об отсутствии цифры 1. (Пример. 200 –число не содержит 1, 221 – число содержит 1). 2. Изменить первую и третью цифры в 3-х значном числе.

Comments

Число пользователь вводит сам? На что изменять 1 и 3 цифры в 3-х значном числе? На каком языке требуется написать? P.S. Для хорошего ответа нужно хорошее объяснение задачи

---

В 1 задании числа также трехзначные или как?

Answer 1

Pascal / Delphi

1) Program zadanie_1;

var ss: string; i: integer; flag: boolean;

begin

write('Введите число: ');

readln(ss);

for i:=1 to length(ss) do

if (ss[i]='1') then begin flag:=true; break; end else flag:=false;

if (flag=true) then writeln('Число содержит 1') else writeln('Число не содержит 1');

readln;

end.

2) Program zadanie_2;

var n,c,c1,c2,c3: integer;

begin

write('Введите число: ');

readln(n);

c1:=n div 100;

c2:=n mod 100 div 10;

c3:=n mod 100 mod 10;

c:=c3*100+c2*10+c1;

writeln('Новое число: ',c);

readln;

end.