Question

Помогите,пожалуйста,даю 50 баллов! Задача Pascal. Ввести число с клавиатуры,если это число кратно 8 и кратно 10,то вывести в ответ Yes, иначе No

Answer 1

Ответ:

Var N:Integer;

begin

read(N);

if (N mod 8 = 0) and (N mod 10 = 0) then

write('YES')

else

write('=NO') ;

end.

Answer 2

Конечно, я могу помочь вам с этой задачей! Вот пример решения задачи на языке программирования Pascal:

pascalCopy code
program CheckDivisibility;
var
  number: integer;
begin
  writeln('Введите число: ');
  readln(number);
  
  if (number mod 8 = 0) and (number mod 10 = 0) then
    writeln('Yes')
  else
    writeln('No');
end.

В этой программе мы сначала запрашиваем число у пользователя с помощью readln, а затем проверяем, является ли оно кратным и 8, и 10, используя оператор mod. Если число кратно и 8, и 10, то выводим 'Yes', в противном случае выводим 'No'.

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