Question

Вот училка задала на отработку по программированию на паскаль ! решите пж :) " Дано целое число. Определить, является ли оно кратным 5 и 10 "

Answer 1

Поскольку 10 = 5 х 2, то число, кратное 10, одновременно кратно и 5.

Турбо Паскаль 7.01

uses Crt;
var
  n:longint;
begin
  ClrScr;
  Write('n='); Read(n);
  if n mod 10=0 then Writeln('Число кратно 10 и 5')
  else Writeln('Число не кратно 10 и 5');
  ReadKey
end.

В то же время, возможно сам вопрос неверно поставлен, и подразумевается, что надо различать три случая: 1) число кратно только 5 2) число кратно 10, следовательно, и 5 3) число не кратно ни 5, ни 10. Но это уже проблемы автора вопроса.

Answer 2

Program qq;
var a: integer;
begin
writeln ('Введите целое число'); readln(a);
If (a mod 5 =0) and (a mod 10=0) then writeln ('Число кратно 5 и 10') else writeln ('Число не кратно 5 и 10'); end.

Answer 3

Для решения данной задачи на языке Паскаль можно использовать оператор условия if.

Вначале необходимо объявить переменную, которая будет хранить введенное целое число. Для этого можно использовать тип данных Integer.

Пример объявления переменной: var number: Integer;

Затем следует запросить у пользователя ввод целого числа и сохранить его в переменную number. Для этого можно использовать функцию Readln.

Пример запроса ввода: Readln(number);

Далее, с помощью оператора условия if, проверяем, является ли введенное число кратным 5 и 10. Для этого используем операторы деления по модулю и сравнения.

Пример условия: if (number mod 5 = 0) and (number mod 10 = 0) then writeln('Число является кратным 5 и 10') else writeln('Число не является кратным 5 и 10');

Если введенное число кратно 5 и 10, то на экран будет выведено сообщение "Число является кратным 5 и 10". В противном случае будет выведено сообщение "Число не является кратным 5 и 10".

Полный пример программы на Паскаль:

program CheckDivisibility; var number: Integer; begin writeln('Введите целое число:'); Readln(number); if (number mod 5 = 0) and (number mod 10 = 0) then writeln('Число является кратным 5 и 10') else writeln('Число не является кратным 5 и 10'); end.