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.