// 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 входит в число
Program day; var a: array[1..30] of integer; b, s, i, min: integer; begin min := 999; Randomize; for i := 1 to 30 do begin a[i] := random(9, -3); s := s + a[i]; Write(a[i]:3); end; Writeln; Writeln('Ниже нуля '); for i := 1 to 30 do begin if a[i] > 0 then Write(i,'-го '); end; if a[i] = 0 then b := b + 1; Writeln; for i := 1 to 30 do if a[i] < min then min := a[i]; Writeln('Самая низкая температура - ', min); Writeln('Средняя температура ноября ', s / 30); end.
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 входит в число
var
a: array[1..30] of integer;
b, s, i, min: integer;
begin
min := 999;
Randomize;
for i := 1 to 30 do begin
a[i] := random(9, -3);
s := s + a[i];
Write(a[i]:3);
end;
Writeln;
Writeln('Ниже нуля ');
for i := 1 to 30 do begin if a[i] > 0 then Write(i,'-го ');
end;
if a[i] = 0 then b := b + 1;
Writeln;
for i := 1 to 30 do
if a[i] < min then min := a[i];
Writeln('Самая низкая температура - ', min);
Writeln('Средняя температура ноября ', s / 30);
end.