Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/43: Рейтинг темы: голосов - 43, средняя оценка - 4.86
Мороз
2 / 2 / 1
Регистрация: 13.11.2012
Сообщений: 98
1

Если целое число m делиться на целое число n, то вывести на экран частное от деления

14.11.2012, 00:15. Просмотров 8039. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить задачу.
Задача: Если целое число m делиться на целое число n, то вывести на экран частное от деления, в противном случае вывести на экран сообщение "m на n нацело не делиться"
Я сделал но почему то выдаёт ошибку где if после знака больше (>)
Вод само решение:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var m,n:integer;
    y:Real;
begin
 Writeln('BBECTu m');
 Readln(m);
 Writeln('BBECTu n');
 Readln(n);
 y:=m/n;
 if (y div 10)>0 then Writeln('m Ha n Hacelo He delitca')
 else Writeln('Pe3ylt:= ',y:0:0);
 Readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2012, 00:15
Ответы с готовыми решениями:

Если целое число m делится на цело на целое число n, то вывести на экран частное от деления
Если целое число m делится на цело на целое число n, то вывести на экран частное от деления,...

Дано натуральное число a и целое положительное число d. вычислить частное q и остаток r при делении a на d, не используя явно операций деления
Дано натуральное число a и целое положительное число d. вычислить частное q и остаток r при делении...

Указать количество дней месяца, если дано номер месяца - а (целое число от 1 к 12) и целое число n (номер года). Если окажется, что введенные даные не
Указать количество дней месяца, если дано номер месяца - а (целое число от 1 к 12) и целое число n...

Дано целое число N(>1) вывести на именьшее целое K,при котором выполняется неравенство
Дано целое число N(>1) вывести на именьшее целое K,при котором выполняется неравенство 3K>N, и...

Дано целое число N (> 1). Вывести наибольшее целое K...
Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и...

3
MansMI
1453 / 1162 / 550
Регистрация: 08.01.2012
Сообщений: 4,509
14.11.2012, 01:05 2
Pascal
1
2
3
4
//y:=m/n;
//if (y div 10)>0 then Writeln('m Ha n Hacelo He delitca') кто ж с  real div пользует?
if m mod n<>0 then Writeln('m Ha n Hacelo He delitca')
else Writeln('Pe3ylt:= ',(m div n):0:0);
0
Мороз
2 / 2 / 1
Регистрация: 13.11.2012
Сообщений: 98
14.11.2012, 08:43  [ТС] 3
Цитата Сообщение от MansMI Посмотреть сообщение
Pascal
1
2
3
4
//y:=m/n;
//if (y div 10)>0 then Writeln('m Ha n Hacelo He delitca') кто ж с  real div пользует?
if m mod n<>0 then Writeln('m Ha n Hacelo He delitca')
else Writeln('Pe3ylt:= ',(m div n):0:0);
Спасибо сейчас проверю. Ну я только начал учиться на программиста и ещё точно не всё понял. Учитель не говорил что mod и div с real нельзя использовать. Да у меня + ошибка ещё одна там не div надо, а mod, перепутал
0
Puporev
Модератор
57083 / 43584 / 30121
Регистрация: 18.05.2008
Сообщений: 103,906
14.11.2012, 10:15 4
Учитель не говорил что mod и div с real нельзя использовать.
Ну правильно, не дурак же он.
Pascal
1
2
3
4
5
6
7
8
9
10
var m,n:integer;
begin
 Writeln('BBECTu m');
 Readln(m);
 Writeln('BBECTu n');
 Readln(n);
 if m mod n<>0 then Writeln('m Ha n Hacelo He delitca')
 else Writeln('Pe3ylt:= ',m div n);
 Readln;
end.
0
14.11.2012, 10:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.11.2012, 10:15

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Дано целое число N (&gt; 1). Найти наибольшее целое число K, при котором выполняется неравенство...

Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE
Дано целое число N&gt;0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru