Даны два действительных числа x y определить что больше сумма или произведение этих чисел. запишите программу

300

500

Посмотреть ответы 2

Ответы на вопрос:

ниёля1

Информатика

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

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

var (a, b) : = readreal2;

var d : = a + b - a * b;

if d < 0 then println('произведение больше суммы')

else

if d = 0 then println('произведение равно сумме')

else println('сумма больше произведения')

end.

Kats203

Информатика

4,6(52 оценок)

Первое можно решить двумя способами простой и сиклами var a, b: integer; k: integer; begin readln (a, b); writeln(a div b ); или k: =0; while a> 0 do begin a: =a-b; inc (k); end; writeln (k); readln end.