Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
12bugaga
0 / 0 / 0
Регистрация: 01.04.2014
Сообщений: 9
1

Цикл выполняется только один раз

01.04.2014, 19:11. Просмотров 706. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a, b, s :integer;
begin
read (a);
s:=0;
repeat begin
if (a mod 10 mod 2)<>0 then
s:=s + a mod 10;
a:=a div 10;
end;
until a>0;
writeln ( s);
end.
Выполняется лишь один раз, на одну цифру (последнюю), а мне нужно на все. В чём ошибка?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2014, 19:11
Ответы с готовыми решениями:

Упростить эту часть программы, используя только один раз цикл «for»
Упростить эту часть программы, используя только один раз цикл «for» Var C, I, SM, SA, X:...

Выбрать из файла те символы, которые встречаются в нем только один раз
11 Дан файл, содержащий текст на русском языке. Выбрать из него те символы, которые встречаются в...

Распечатайте буквы, которые встречаются в каждом слове текста только один раз
Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове текста только один раз.

Из массива A [7]: 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз
Из массива A : 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз. Должен...

Из заданного фрагмента последовательности чисел выбрать числа, встречающиеся в нем только один раз.
Прошу оч помоч с программкой условие: Из заданного фрагмента последовательности чисел выбрать...

4
Puporev
Модератор
58923 / 44603 / 30785
Регистрация: 18.05.2008
Сообщений: 106,872
01.04.2014, 19:24 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a, b, s :integer;
begin
read (a);
s:=0;
repeat
if (a mod 10 mod 2)<>0 then
s:=s + a mod 10;
a:=a div 10;
until a<=0;
writeln ( s);
end.
0
Deeply174
0 / 0 / 0
Регистрация: 29.03.2014
Сообщений: 1
01.04.2014, 22:50 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Nazvanie;
var a, b, s :integer;
begin
 read (a);
 s:=0;
 repeat
  if (a mod 10 mod 2)<>0 then
   begin
      s:=s + a mod 10;
      a:=a div 10;
   end;
  until a<=0;
  writeln ( s);
end.
Добавлено через 2 минуты
Приучи себя делать отступы. Забыл begin и end. В условии у тебя выполняется 2 действия. И еше program кто будет писать?
0
Xo6ut
102 / 89 / 75
Регистрация: 04.11.2011
Сообщений: 1,810
02.04.2014, 00:06 4
Мне кажется, что ты не того учишь)0 И зачем же в программе program?
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5290 / 3150 / 2337
Регистрация: 22.11.2013
Сообщений: 8,862
02.04.2014, 08:42 5
Deeply174,
мосье любитель бесконечных циклов при определенных условиях (это по поводу "забытых" begin и end, откуда взялся странный вывод про 2 действия по условию, одно оно там)?
0
02.04.2014, 08:42
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.04.2014, 08:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз
Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз, в том...

Нужна программа реализации эйлерова цикла (обхода все ребер графа, и при том только один раз))
Товарищи...очень нужно, хотя бы прототип, отладить берусь сам... Помогите кто чем может (желательно...

Ввести строку символов. Если символ в данной строке встречается один раз, в конце строки добавлять ещё раз его
Ввести строку символов. Если символ в данной строке встречается один раз, в конце строки добавлять...


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

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

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