Question

Работаем в Pascal ABC 1. Найти количество цифр меньше 6 в целом x. Тест: 254904 - 5 2. Найти сумму первой и последней цифры в целом x. Тест: 254904 - 6 3. Найти сумму самой большой и самой маленькой цифры в целом x Тест: 254904 - 9

Answer 1

1.

var x,s:integer;
begin
read(x);
s := 0;
while x > 0 do
  begin
  if x mod 10 < 6 then s := s + 1; {здесь была ошибка}
  x := x div 10
  end;
write(s)
end.

2.

var x,s:integer;
begin
read(x);
s := x mod 10;
while x > 10 do
  x := x div 10;
write(x + s)
end.

3.

var x,a,b:integer;
begin
read(x);
a := x mod 10;
b := x mod 10;
while x > 0 do
    begin
    if x mod 10 > a then a := x mod 10;
    if x mod 10 < b then b := x mod 10;
    x := x div 10;
    end;
write(a + b)
end.

Answer 2

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var s:=ReadInteger('n=').ToString;
  Writeln('Количество цифр, меньших 6, равно ',
    s.Where(x->x<'6').Count);
  Writeln('Сумма первой и последней цифры равна ',
    StrToInt(s[1])+StrToInt(s[s.Length]));
  Writeln('Сумма самой маленькой и самой большой цифры равна ',
    StrToInt(s.Min)+StrToInt(s.Max));
end.

Тестовое решение:
n= 254904
Количество цифр, меньших 6, равно 5
Сумма первой и последней цифры равна 6
Сумма самой маленькой и самой большой цифры равна 9

Answer 3

1. Чтобы найти количество цифр меньше 6 в целом числе x, можно пройтись по всем цифрам числа и проверить, меньше ли они 6. Для этого можно преобразовать число в строку и использовать функцию Length и CharToInt:

cssCopy code
var
  x: integer;
  s: string;
  i, count: integer;
begin
  readln(x);
  str(x, s);
  count := 0;
  for i := 1 to Length(s) do
  begin
    if CharToInt(s[i]) < 6 then
      count := count + 1;
  end;
  writeln(count);
end.

2. Чтобы найти сумму первой и последней цифры в целом числе x, можно опять же использовать строку, чтобы получить первую и последнюю цифры:

cssCopy code
var
  x: integer;
  s: string;
  first, last, sum: integer;
begin
  readln(x);
  str(x, s);
  first := CharToInt(s[1]);
  last := CharToInt(s[Length(s)]);
  sum := first + last;
  writeln(sum);
end.

3. Чтобы найти сумму самой большой и самой маленькой цифры в целом числе x, можно опять же пройтись по всем цифрам числа и сравнить их между собой. Для этого можно использовать две переменные, в которых будут храниться максимальная и минимальная цифры:

cssCopy code
var
  x: integer;
  s: string;
  i, max_digit, min_digit, digit: integer;
begin
  readln(x);
  str(x, s);
  max_digit := 0;
  min_digit := 9;
  for i := 1 to Length(s) do
  begin
    digit := CharToInt(s[i]);
    if digit > max_digit then
      max_digit := digit;
    if digit < min_digit then
      min_digit := digit;
  end;
  writeln(max_digit + min_digit);
end.