profile
Опубликовано 6 лет назад по предмету Информатика от sveta27061998

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

  1. Ответ
    Ответ дан DonPedro80
    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.
    1. Ответ
      Ответ дан sveta27061998
      Спасибо большое)
    2. Ответ
      Ответ дан DonPedro80
      Пожалуйста)
    3. Ответ
      Ответ дан DonPedro80
      Обращайтесь))
Самые новые вопросы