1. Вывести сообщение об неименьи числа 1. (Пример. 200 число не содержит

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

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