Question

Срочно, помогите пожалуйста Написать программу нахождения искомого числа в паскале s=26k-m/6-4k-56mk / - дробная черта

Answer 1

Program m3;
var s,k,m:real;
begin
readln(m,k);
writeln('m=',m,' k=',k);
s:=(26*k-m)/(6-4*k-56*m*k);
writeln('s=',s);
end.

Answer 2

Я могу помочь вам с написанием программы на языке Паскаль, которая находит искомое число по заданной формуле. Вот примерный алгоритм решения вашей задачи:

- Объявить переменные s, k, m, и n типа integer. - Ввести с клавиатуры значения k и m. - Вычислить значение s по формуле s = 26k - m / 6 - 4k - 56mk, используя операторы арифметики и целочисленного деления. - Вывести значение s на экран. - Найти все делители числа s, используя цикл for от 1 до s и оператор остатка от деления mod. - Если делитель равен 1 или s, то увеличить счетчик n на 1. - Если n равен 2, то вывести сообщение, что s - простое число, иначе вывести сообщение, что s - составное число.

Вот пример кода программы на языке Паскаль, который реализует этот алгоритм:

program FindNumber;
var
  s, k, m, n: integer;
begin
  write('Введите значения k и m: ');
  readln(k, m);
  s := 26 * k - m div 6 - 4 * k - 56 * m * k;
  writeln('Значение s = ', s);
  n := 0;
  for m := 1 to s do
    if s mod m = 0 then
      n := n + 1;
  if n = 2 then
    writeln('Число s - простое')
  else
    writeln('Число s - составное');
end.

Надеюсь, это поможет вам с решением вашей задачи. Если у вас есть еще вопросы, я буду рад ответить на них.