Question

Написать программу в Паскале и составить алгоритм. Вводится число х, определить нечетное оно и кратно ли 7. Вывести сообщение на экран.

Answer 1

Var x:integer;
begin
writeln('x=');
readln(x);
if (x mod 7=0) and ( x mod 2<>0) then writeln(' cislo neciotnoe i kratno semi ')
else 
writeln('cislo ciotnoe i nekratno semi ');
readln;
end.

Answer 2

Конечно, я могу помочь с написанием программы на Pascal и составлением алгоритма. Вот пример программы и соответствующего алгоритма:

Алгоритм:

1. Ввести число `x`. 2. Проверить, является ли `x` нечетным. 3. Если `x` нечетное, перейти к следующему шагу, иначе вывести "Число четное" и завершить программу. 4. Проверить, делится ли `x` на 7 без остатка. 5. Если `x` кратно 7, вывести "Число нечетное и кратно 7", иначе вывести "Число нечетное, но не кратно 7". 6. Завершить программу.

Программа на Pascal:

program CheckNumber;

var
  x: integer;

begin
  // Ввод числа
  write('Введите число x: ');
  readln(x);

// Проверка на нечетность и кратность 7
  if (x mod 2 <> 0) then
  begin
    if (x mod 7 = 0) then
      writeln('Число нечетное и кратно 7')
    else
      writeln('Число нечетное, но не кратно 7');
  end
  else
    writeln('Число четное');

readln;
end.

Эта программа сначала проверяет, является ли число `x` нечетным. Если `x` нечетное, она затем проверяет, кратно ли оно 7, и выводит соответствующее сообщение. Если `x` четное, программа сообщает об этом.