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

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

аыыа

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 votes Thanks 2

aravaika04 Можете блок-схему начертить пожалуйста

supersuperkirip54irs У Вас при вводе двух нулей программа ничего не выведет. Лучше в else просто вывести модуль разности.

аыыа Да, вы правы. Кстати, отрицательные числа тоже могут быть двухзначными, так что лучше написать if (abs(n)<100) and (abs(n)>9) then

supersuperkirip54irs Да, это более правильно.

aravaika04 Мне учительнице сказать что в этой задаче блок схема невозможна?

supersuperkirip54irs Почему, возможно. Правда лично я писать это не буду). И ответьте на вопрос, я добавил в комментарии к заданию.

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.

1 votes Thanks 0