Что то не так! Проверьте пожалуйста!
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. |
Текстовая версия | 15.05.2024 22:23 |