Var a,b,c,max,two: Integer; begin writeln('Введите 1 число'); readln(a); writeln('Введите 2 число'); readln(b); writeln('Введите 3 число'); readln(c); max:=a; if max < b then max:=b; if max < c then max:=c; if max=a then begin two:=max; if c < b then two:=b; if c > b then two:=c; writeln(max,'+',two,'=',max+two); end; if max=b then begin two:=max; if c < a then two:=a; if c > a then two:=c; writeln(max,'+',two,'=',max+two); end; if max=c then begin two:=max; if a < b then two:=b; if a > b then two:=a; writeln(max,'+',two,'=',max+two); end; end.
Program SummaDrobi; // это необязательная строчка с названием программы var a, b, c, d, n, m: integer; // это объявление 6-ти переменных целого типа для хранения данных begin writeln ('Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:'); // это вывод на экран текста a := 2; b := 5; c := 3; d := 7; // это присвоение значений в переменные из самой // программы (ввод данных с клавиатуры отсутствует) writeln ('Первая дробь равна: ' ,a, '/', b, ', вторая дробь равна: ', c, '/', d); // это уже вывод обработанной информации на экран writeln ('Теперь найдём сумму дробей '); n := a*d; m := c*b; // это обработка данных перед выводом на экран writeln ('Конечная несокращённая дробь равна: ', n+m, '/', b*d); // это вывод на экран конечного решения end.
Результат: Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей: Первая дробь равна: 2/5 вторая дробь равна: 3/7 Теперь найдём сумму дробей Конечная несокращённая дробь равна: 29/35
