Определить, что больше: сумма или произведение чисел

@Серёга45 · Регистрация: 27.12.2011

Author24 — интернет-сервис помощи студентам

Заданы три вещественных числа: 1) определить, что больше: сумма или произведение этих чисел, 2) вывести на экран отдельно целую и дробную часть суммы.

@Tyloooda · 27.12.2011, 15:24

Pascal

uses crt;
var a, b, c, sum, calc, drob : real ;
    cel : integer ;
BEGIN
     clrscr;
     a := 0;
     b := 0;
     c := 0;
     drob := 0;
     cel := 0;
     sum := 0;
     calc := 0;
 
     WriteLn('Vvedite 1-oe chislo:');
     ReadLn(a);
     Writeln('Vvedite 2-oe chislo:');
     Readln(b);
     Writeln('Vvedie 3-e chislo');
     Readln(c);
 
     sum := a+b+c ;
     calc := (a*b)*(c) ;
 
     If sum < calc then
        WriteLn('Summa chisel menshe proizvedeniya')
     else
         Writeln('Proizvedenie menshe summi');
     If sum = calc then
        Writeln('Proizvedenie = summe');
 
     drob := frac(sum);
     cel := round(int(sum));
 
     Writeln('Celaya chast summi: ',cel);
     WriteLn('Drobnaya chast summi: ',drob);
     Readkey;
 
END.

Вывод дробной допили

@Серёга45 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 13
		1
	Определить, что больше: сумма или произведение чисел 27.12.2011, 14:43. Показов 2026. Ответов 1 Метки нет (Все метки) Заданы три вещественных числа: 1) определить, что больше: сумма или произведение этих чисел, 2) вывести на экран отдельно целую и дробную часть суммы. 0

	27.12.2011, 15:24

Определить, что больше: сумма или произведение чисел

Решение