Составить программы в паскале: 1. Составить алгоритм и программу для нахождения значения выражения: Y=(a mod b)*(c div b) 2. Напишите программу для вычисления выражения: X=(а + (d - 12) *3) * (с - 5*k), значения переменных а, d, с и k вводятся с клавиатуры.

Предыдущий
вопрос Следующий
вопрос

Программа для нахождения значения выражения Y=(a mod b)*(c div b):

program CalculateY;
var
a, b, c: integer;
begin
writeln('Введите значения переменных a, b и c:');
readln(a, b, c);
if b = 0 then
writeln('Деление на ноль!')
else
writeln('Значение выражения Y = ', (a mod b)*(c div b));
end.

Программа для вычисления выражения X=(а + (d - 12) 3) (с - 5*k):

program CalculateX;
var
a, d, c, k: integer;
begin
writeln('Введите значения переменных a, d, c и k:');
readln(a, d, c, k);
writeln('Значение выражения X = ', (a + (d - 12)*3)*(c - 5*k));
end.