Предмет: Информатика,
автор: aravaika04
Даны два числа С, D. Если сумма кубов Этих чисел двухзначное число тогда распечатать произведение этих чисел иначе распечатать разность между меньшим и большим числом
supersuperkirip54irs:
Язак?
Язык*?
Паскаль
Ещё один вопрос: разность между меньшим и большим подразумевает вычитание большего из меньшего? Не совсем понял.
Ответы
Автор ответа:
2
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.
Можете блок-схему начертить пожалуйста
У Вас при вводе двух нулей программа ничего не выведет. Лучше в else просто вывести модуль разности.
Да, вы правы. Кстати, отрицательные числа тоже могут быть двухзначными, так что лучше написать if (abs(n)<100) and (abs(n)>9) then
Да, это более правильно.
Мне учительнице сказать что в этой задаче блок схема невозможна?
Почему, возможно. Правда лично я писать это не буду). И ответьте на вопрос, я добавил в комментарии к заданию.
Автор ответа:
0
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.
Интересные вопросы
Предмет: Биология,
автор: baneyoutub
Предмет: Окружающий мир,
автор: mansurbekovad
Предмет: Физика,
автор: valeriyaboldareva
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: Tanja7788