A = 'A'
СИМВОЛЬНЫЙ
B = 456
ЦЕЛЫЙ
С = 123.4
ВЕЩЕСТВЕННЫЙ
D = True
ЛОГИЧЕСКИЙ
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
#2
Ты не дописал программу ,пропустил тело цикла ,помимо writeln(s) до него должно быть что-то я полагаю.
№1
A*(A*B*C+A)
A B C A*B A*B*C (A*B*C+A) A*(A*B*C+A)
0 0 0 0 0 0 0
0 0 1 0 0 0 0
0 1 0 0 0 0 0
0 1 1 0 0 0 0
1 0 0 0 0 1 1
1 0 1 0 0 1 1
1 1 0 1 0 1 1
1 1 1 1 1 1 1