|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2016, 12:52 | #1 |
Регистрация: 22.05.2016
Сообщений: 3
|
заданы 3 числа.Вычислить сумму простых из них. Для проверки является ли число кратным 9 использовать функцию. (НЕ работает(()
заданы 3 числа.Вычислить сумму простых из них. Для проверки является ли число кратным 9 использовать функцию. (НЕ работает(()
Код:
Последний раз редактировалось Лейля; 22.05.2016 в 21:30. |
22.05.2016, 13:49 | #2 | ||
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Цитата:
Цитата:
Последний раз редактировалось Вадим Мошев; 22.05.2016 в 13:59. |
||
22.05.2016, 14:02 | #3 |
Регистрация: 22.05.2016
Сообщений: 3
|
первое число= 12
делится второе число = 7 делится третее число = 5 делится подсчет суммы: числа не простые На все числа отвечает, что делится и даже, если числа простые не подсчитывает их сумму, а пишет, что числе не простые |
22.05.2016, 14:06 | #4 |
Регистрация: 22.05.2016
Сообщений: 3
|
спасибо, Вы правы, учту
|
22.05.2016, 15:35 | #5 |
Форумчанин
Регистрация: 25.01.2015
Сообщений: 472
|
При вводе у вас планировалась процедура с параметром-переменной - поставьте var.
Без этого, даже после Vvod(a), Vvod(b)... переменные a, b,.. равны 0 - легко проверяется контрольной печатью writeln(a:3, b:3, c:3). |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
блок-схема: Заданы три числа. Определить, есть ли среди них хотя бы одна пара равных по величине | СергейКл | Помощь студентам | 3 | 25.05.2015 13:37 |
набор подпрограмм для выполнения операций над числами ( 1.Определение является ли число палиндромом; 2.Реверсирование числа) | tweeker | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 18.12.2013 19:33 |
Три задачи - Найти сумму натуральных чисел; Протабулировать функцию; вычислить сумму | kolya1114 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 01.12.2012 19:01 |
1. Вычислить сумму (по заданному выражению) 2. проверить, если ли у числа N два простых делителя | Minney-Mouse | Помощь студентам | 4 | 10.11.2011 16:06 |
Ассемблер.Заданы два массива слов.сли в каждом из них есть 2 отрицательных числа, то каждый 2-й элемент | Лилея | Помощь студентам | 0 | 21.01.2011 20:20 |