Вариант 10. Дискретное извлечение корня Дискретным корнем из натурального числа n по модулю m называется такое наименьшее натуральное число k, что k
2
≡ n (mod m), то
есть такое, что число (k
2
– n) делится на m без остатка. Программа
должна извлекать дискретный корень из заданного натурального
числа по заданному простому модулю, если это возможно.
Входные данные. Целое положительное число n и простое число m.
Выходные данные. Дискретный корень из n по модулю m, либо
сообщение о том, что его не существует.
Пример текстового интерфейса пользователя
Discrete Square Root
Input a positive integer>13
Input a modulo>17
Result: 8
Continue? (Y/N)>Y
Input a positive integer>3
Input a modulo>11
Result: 5
Continue? (Y/N)>N

#include <stdio.h>

int main()

{

 int S, P;

 printf("Введите сумму\n");

 scanf("%d", &S);

 if (S > 1500)

 {

   P = 8;

   S = S / 100 * P;

   printf("Ваша скидка %d\n", P);

   printf("Сумма скидки %d\n", S);

 }

 else if (S > 1000)

 {

   P = 5;

   S = S / 100 * P;

   printf("Ваша скидка %d\n", P);

   printf("Сумма скидки %d\n", S);

 }

 else if (S > 500)

 {

   P = 3;

   S = S / 100 * P;

   printf("Ваша скидка %d\n", P);

   printf("Сумма скидки %d\n", S);

 }

 else

 {

   printf("Для вашей суммы не предусмотренна скидка\n");

 }

 return 0;

}

Объяснение:

Пропущен header, отсутствуют скобки после if, отсутствует ";", END??? Зачем?? Точно нужно было написать на "C"?

var
  a, b: integer;
begin
  readln(a, b);
  writeln(System.Math.Sign(a) = System.Math.Sign(b) ? 'Да' : 'Нет');
end.

Или  ̶п̶р̶и̶м̶и̶т̶и̶в̶н̶е̶е̶  проще:
var
  a, b: integer;
begin
  readln(a, b);
  if (a > 0) then a := 1;
  if (a = 0) then a := 0;
  if (a < 0) then a := -1;
  if (b > 0) then b := 1;
  if (b = 0) then b := 0;
  if (b < 0) then b := -1;
  if (a = b) then
    writeln('Yes')
  else
    writeln('No');
end.

Немного  ̶у̶п̶р̶о̶̶щ̶̶ё̶н̶н̶ы̶й̶  оптимизированный вариант:
var
  a, b: integer;
begin
  readln(a, b);
  if (a > 0) then 
    a := 1
  else
    if (a = 0) then
      a := 0
    else
      a := -1;
  if (b > 0) then 
    b := 1
  else
     if (b = 0) then 
       b := 0
     else
       b := -1;
  if (a = b) then
    writeln('Yes')
  else
    writeln('No');
end.