// PascalABC.NET 3.0, сборка 1088 begin var n:=ReadLnString('Введите число: '); n:=n.Where(x->x in ['0'..'9']).JoinIntoString(''); Writeln('Принятое число: ',n); var a:=ReadLnChar('Введите искомую цифру: '); Writeln('Количество цифр в числе равно ',n.Length); if n[1]=n[n.Length] then Writeln('Первая цифра равна последней') else Writeln('Первая цифра не равна последней'); if Pos(a,n)>0 then Writeln('Цифра ',a,' входит в число') else Writeln('Цифра ',a,' не входит в число') end.
Тестовое решение: Введите число: тут спрятано 456. по частям 764 наше 03число Принятое число: 45676403 Введите искомую цифру: 0 Количество цифр в числе равно 8 Первая цифра не равна последней Цифра 0 входит в число
"Школьный вариант" // PascalABC.NET 3.0, сборка 1088 var n:longint; i,k:integer; sn:string; a:char; begin Write('Введите число: '); Readln(n); Str(n,sn); Write('Введите искомую цифру: '); Readln(a); k:=Length(sn); Writeln('Количество цифр в числе равно ',k); if sn[1]=sn[k] then Writeln('Первая цифра равна последней') else Writeln('Первая цифра не равна последней'); if Pos(a,sn)>0 then Writeln('Цифра ',a,' входит в число') else Writeln('Цифра ',a,' не входит в число') end.
Тестовое решение: Введите число: 3476573 Введите искомую цифру: 7 Количество цифр в числе равно 7 Первая цифра равна последней Цифра 7 входит в число
Const n = 10; var a: array[1..n] of integer; i, j, t: integer; flag:boolean;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := random(101)-50; Write(a[i]:4) end; Writeln; i:=1; repeat flag:=true; for j := 1 to n-i do if a[j] > a[j+1] then begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end; Inc(i); until (i>n-1) or flag; Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
