По паскалю. из данных вещественных чисел a,b,c возвести в третью степень те, которые не принадлежат интервалу (4.2, 8.4); заранее , мою проблема в том, что не знаю как написать интервал, если можно

👇

Увидеть ответ

Ответ:

aliyaaaa

25.08.2021

интервал записывается как двойное условие (в скобках через and или or)

if (a < 4.2) or (a > 8.4) then power(a, 3);

аналогично для других переменных.

4,7(42 оценок)

Открыть все ответы

Ответ:

darkhanio

25.08.2021

Var
m, n: integer;
s1, s2, s3: string;
ms: array[1..9] of string;
md: array[1..9] of string;
m1: array[11..19] of string;
me: array[1..9] of string;
flag: boolean;

begin

flag := false; { Пока ничего не выведено }
s1 := 'рубль';
s2 := 'рубля';
s3 := 'рублей';
ms[1] := 'сто'; ms[2] := 'двести'; ms[3] := 'триста'; ms[4] := 'Четыреста';
ms[5] := 'пятьсот'; ms[5] := 'пятьсот'; ms[6] := 'шестьсот'; ms[7] := 'семьсот';
ms[8] := 'восемьсот'; ms[9] := 'девятьсот';
md[1] := 'десять'; md[2] := 'двадцать'; md[3] := 'тридцать'; md[4] := 'сорок';
md[5] := 'пятьдесят'; md[6] := 'шестьдесят'; md[7] := 'семьдесят';
md[8] := 'восемьдесят'; md[9] := 'девяносто';
m1[11] := 'одиннадцать'; m1[12] := 'двенадцать'; m1[13] := 'тринадцать';
m1[14] := 'четырнадцать'; m1[15] := 'пятнадцать'; m1[16] := 'шестнадцать';
m1[17] := 'семнадцать'; m1[18] := 'восемнадцать'; m1[19] := 'девятнадцать';
me[1] := 'один'; me[2] := 'два'; me[3] := 'три'; me[4] := 'четыре'; me[5] := 'пять';
me[6] := 'шесть'; me[7] := 'семь'; me[8] := 'восемь'; me[9] := 'девять';

Write('Введите целое число от 1 до 1000: ');
Readln(m);
if (m < 1) or (m > 1000) then Writeln('Шутки шутим?')
else
if m = 1000 then Writeln('Одна тысяча ' + s3)
    else
begin
      { сотни }
    n := m div 100;
    if n > 0 then
    begin
      Write(ms[n]);
      flag := true
    end;
      { десятки }
    m := m mod 100;
    if m = 0 then Writeln(' ', s3)
    else
    begin
      if (m > 10) and (m < 20) then
      begin
        if flag then Write(' ');
        Writeln(m1[m], ' ', s3)
      end
      else
      if m > 0 then
      begin
        n := m mod 10;
        m := m div 10;
        if m > 0 then
        begin
          if flag then Write(' ') else flag := true;
          Write(md[m])
        end;
        if n <> 0 then
        begin
          { единицы }
          if flag then Write(' ');
          Write(me[n], ' ');
          case n of
            1: Writeln(s1);
            2..4: Writeln(s2);
          else Writeln( s3)
          end
        end
        else Writeln(' ', s3)
      end
    end
end
end.

Тестовое решение:
Введите целое число от 1 до 1000: 314
триста четырнадцать рублей

4,4(21 оценок)

Ответ:

артур35

25.08.2021

Гиперссылка может быть добавлена к любому элементу гипертекстового документа и обычно выделяется графически. В HTML-документах текстовые ссылки по умолчанию выделяются синим цветом, при наведении на них курсором мыши в окне браузера изменяются, например, меняют цвет или выделяются подчеркиванием. При навигации в браузере с клавиатуры текстовые и графические ссылки выделяются прямоугольной пунктирной рамкой. Посещенная ранее ссылка обычно выделяется цветом, отличным от цвета не посещённой ссылки.

4,5(76 оценок)

Это интересно:

Компьютеры-и-электроника

09.11.2021

Как скачать приложения на Android: пошаговая инструкция для начинающих...

07.06.2020

Отличный способ провести каникулы - морское путешествие! Как правильно подготовиться к нему?...

Хобби-и-рукоделие

18.12.2020

Как быстро размягчить пластилин Playdough: 5 простых способов...

Кулинария-и-гостеприимство

03.04.2023