Question

Проверить является ли число R кратным S. Напишите пожалуйста это задание на PascalABC и C++

Answer 1

Паскаль:

if(R mod S = 0) then ... (*Является*)

C++:

if(R % S == 0)

//является

Answer 2

Sure, I'll provide you with the code to check whether the number R is divisible by S in both PascalABC and C++.

PascalABC:

pascalCopy code
program CheckDivisibility;
var
  R, S: Integer;
begin
  Write('Enter the value of R: ');
  Readln(R);

  Write('Enter the value of S: ');
  Readln(S);

  if (R mod S = 0) then
    Writeln('R is divisible by S.')
  else
    Writeln('R is not divisible by S.');

  Readln;
end.

C++:

cppCopy code
#include <iostream>
using namespace std;

int main() {
    int R, S;
    cout << "Enter the value of R: ";
    cin >> R;

    cout << "Enter the value of S: ";
    cin >> S;

    if (R % S == 0)
        cout << "R is divisible by S." << endl;
    else
        cout << "R is not divisible by S." << endl;

    return 0;
}

Both programs prompt the user to enter the values of R and S and then check whether R is divisible by S. They output the result accordingly.