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

Даны два числа С, D. Если сумма кубов Этих чисел двухзначное число тогда распечатать произведение этих чисел иначе распечатать разность между меньшим и большим числом

  1. Ответ
    Ответ дан аыыа

    var c,d,n: real;  

    begin  

    readln(c,d);

    n := (c*c*c)+(d*d*d);

    if (n<100) and (n>9) then  

    writeln('Произведение чисел:', c*d)

    else

    begin

    if (c>d) then writeln('Разность чисел:', c-d);

    if (c<d) then writeln('Разность чисел:', d-c);

    end;

    end.

    1. Ответ
      Ответ дан supersuperkirip54irs
      У Вас при вводе двух нулей программа ничего не выведет. Лучше в else просто вывести модуль разности.
    2. Ответ
      Ответ дан аыыа
      Да, вы правы. Кстати, отрицательные числа тоже могут быть двухзначными, так что лучше написать if (abs(n)<100) and (abs(n)>9) then
    3. Ответ
      Ответ дан supersuperkirip54irs
      Да, это более правильно.
    4. Ответ
      Ответ дан aravaika04
      Мне учительнице сказать что в этой задаче блок схема невозможна?
    5. Ответ
      Ответ дан supersuperkirip54irs
      Почему, возможно. Правда лично я писать это не буду). И ответьте на вопрос, я добавил в комментарии к заданию.
  2. Ответ
    Ответ дан supersuperkirip54irs

    var c,d:real;

    BEGIN

    readln(c,d);

    if (abs(c*c*c+d*d*d)<100) and (abs(c*c*c+d*d*d)>9) then

    writeln(c*d) else

    writeln(abs(c-d));

    end.

Самые новые вопросы