Что то не так! Проверьте пожалуйста!
var n, i: integer;
begin
Readln (n);
writeln('Dividers: ');
for i := 1 to n div 2 do
if (n mod i) = 0 then begin
write(i,' ');
end;
writeln(n);
readln
end.
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
задача на дроби, сложение дробей! |
zoha |
Сообщение
#1
|
Хакер Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: -4 |
Даны 2 дроби А/В и С/D (ADCй - натуральное число). Составить программу для сложения дробей. Результат должен быть несократимой дробью.
Что то не так! Проверьте пожалуйста! Код Program 3; var n, i: integer; begin Readln (n); writeln('Dividers: '); for i := 1 to n div 2 do if (n mod i) = 0 then begin write(i,' '); end; writeln(n); readln end. |
sheka |
Сообщение
#2
|
Я. Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
По идее код должен вывести ВСЕ делители числа 2. И?
|
potter-by |
Сообщение
#3
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: 0 |
{Дополнительные переменные введены на случай, |
Текстовая версия | 23.12.2024 19:35 |