Составить программы в паскале: 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.
Программа для нахождения значения выражения 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.