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

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.