Question

Пожалуйста помогите.Составить в паскале программу: Вводится целое число С. Если -9<=C<=9 вывести величину числа в словес ной форме с учетом знака, в противном случае - предупреждающее сообщение и повторный ввод.

Answer 1

Var
  c:shortint;
begin
  while true do
  begin
    Write('Введите число от -9 до 9: ');
    Readln(c);
    if (c>=-9) and (c<=9) then break;
    Writeln('Неверный ввод')
  end;
  if c<0 then
  begin
    Write('минус ');
    c:=-c;
  end;
  case c of
  0:Writeln('ноль');
  1:Writeln('один');
  2:Writeln('два');
  3:Writeln('три');
  4:Writeln('четыре');
  5:Writeln('пять');
  6:Writeln('шесть');
  7:Writeln('семь');
  8:Writeln('восемь');
  9:Writeln('девять')
  end
end.

Answer 2

Конечно, помогу! Вот программа на языке Паскаль, которая решает вашу задачу:

pascalCopy code
program NumberInWords;

var
  C: integer;

function NumberToWords(num: integer): string;
const
  units: array[1..9] of string = ('один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять');
begin
  if num > 0 then
    Result := units[num]
  else if num < 0 then
    Result := 'минус ' + units[-num]
  else
    Result := 'ноль';
end;

begin
  repeat
    writeln('Введите целое число C: ');
    readln(C);
    
    if (C >= -9) and (C <= 9) then
      writeln('Число в словесной форме: ', NumberToWords(C))
    else
      writeln('Предупреждающее сообщение: Число должно быть от -9 до 9. Повторите ввод.');
  until (C >= -9) and (C <= 9);
end.

При запуске программы она будет запрашивать ввод целого числа C. Если введенное число находится в диапазоне от -9 до 9 включительно, программа выведет его в словесной форме с учетом знака (например, "пять", "минус семь"). В противном случае, будет выдано предупреждающее сообщение, и программа запросит повторный ввод числа до тех пор, пока не будет введено корректное значение.