Question

Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования
Паскаль для решения задачи №6 к параграфу №34 с комментариями!!!
(она была задана на урок 45). Значения переменных a b c d взять те же.
Комментарий по ходу выполнения программы давать вразумительный
и к каждой строке кода.
ЗАДАЧА №6: Запишите алгоритм сложения двух простых дробей (без сокращения дроби)
Пример выполнения ДЗ:
Program SummaDrobi;
// это необязательная строчка с названием программы
var: a, b, c, d, n, m: integer;
// это объявление 6-ти переменных целого типа для хранения данных
begin
writeln ('Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:');
// это вывод на экран текста
a := #; b := #; c := #; d := #;…
// это присвоение значений в переменные из самой
// программы (ввод данных с клавиатуры отсутствует)
writeln (‘Первая дробь равна: ’ a, '/', b, ‘ вторая дробь равна: ’ с, '/', d);
// это уже вывод обработанной информации на экран
writeln (‘Теперь найдём сумму дробей ’);
n := ?*?; m := ?*?;
// это обработка данных перед выводом на экран. Вместо «?» и «*» ваше решение
writeln (‘Конечная несокращённая дробь равна: ’ ?, '/', ?);
// это вывод на экран конечного решения
end.

В программе обязательны комментарии!!!
Комментарий по ходу выполнения программы давать вразумительный, не менее 3-х слов в каждом комментарии.
Напомню: комментарий делаем после двойного слэша на каждой строке кода
Например, комментарий к первой строке:
//это начало программы
Комментарий ко второй строке:
//это объявление переменных в программе
Коммент к третьей строке:
//эта переменная для хранения числа, а вот эта – для текста

Answer 1

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