Question

Пж помогите срочно !!!Напишите программу которая проверяет является ли введенное натуральное число положительным кратным 7 ( на языке Паскаль ) даю 40 баллов

Answer 1

Program ch;
var a: integer;
begin
readln(a);
if(a mod 7=0) and (a>0) then writeln('yes');
else writeln('no');
end.

Answer 2

Var x:integer;
begin
read(x);
if(x<=0)then write('Не положительное') 
   else  if(x mod 7 <>0)then write('Не кратно 7')  
      else write('Положительное и кратно 7');
end.

Answer 3

Конечно, вот пример программы на языке Паскаль, которая проверяет, является ли введенное число положительным кратным 7:

pascalCopy code
program CheckMultipleOf7;
var
  num: Integer;
begin
  writeln('Введите натуральное число: ');
  readln(num);
  
  if (num > 0) and (num mod 7 = 0) then
    writeln('Число является положительным кратным 7.')
  else
    writeln('Число не является положительным кратным 7.');
end.

Скопируйте этот код в среду программирования на Паскале и запустите. Программа запросит вас ввести число и выдаст результат проверки.