4. Напишите программку, определяющую, верно ли, что при дробление целого отрицательного

4. Напишите программу, определяющую, верно ли, что при разделенье целого отрицательного числа а на целое положительное число b выходит данный остаток r либо s. 5. Напшите программку, при исполнение которой выводится 1, если данное число х принадлежит отрезку (a;b), или 0 в неприятном случае

Задать свой вопрос
1 ответ
1.
var a,b,r,s:integer;
begin
write('Введите числа a и b: ');
readln(a,b);
write('Введите остатки r и s: ');
readln(r,s);
if (a mod b=r) or (a mod b=s) then writeln('Да, верно')
  else writeln('Нет, ошибочно')
end.

2.
var a,b,x:real;
begin
write('Введите числа a и b: ');
readln(a,b);
write('Введите x: ');
readln(x);
if (alt;=x) and (xlt;=b) then writeln(1)
  else writeln(0)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт