На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.
Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

АвторСообщение





Сообщение: 3
ссылка на сообщение  Отправлено: 09.02.21 19:17. Заголовок: Найти сумму и количество целых чисел принадлежащих отрезку


Найти сумму и количество целых чисел принадлежащих отрезку, в записи которых используются только нечетные цифры
 count = 0 
cnt = 0
k = 0
for n in range(1533, 5117):
s=str(n)
for x in s:
if int(x)%2!=0:
k += 1
if k==len(s):
count+=1
cnt+=n

print(count, cnt)


Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 16 , стр: 1 2 All [только новые]







Сообщение: 4
ссылка на сообщение  Отправлено: 09.02.21 19:18. Заголовок: программа находит то..


программа находит только первое число

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Сообщение: 2416
ссылка на сообщение  Отправлено: 09.02.21 19:20. Заголовок: Pavlova21 пишет: про..


Pavlova21 пишет:
 цитата:
программа находит только первое число

Попробуйте обнулить счетчик k перед началом обработки очередного числа.

___________________________________________________
Имей мужество пользоваться собственным умом. (И. Кант)
Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 6
ссылка на сообщение  Отправлено: 09.02.21 19:24. Заголовок: О да, спасибо!..


О да, спасибо!

Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 7
ссылка на сообщение  Отправлено: 10.02.21 20:55. Заголовок: Подскажите, пожалуйс..


Подскажите, пожалуйста, как эту программу написать на Паскале?

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Сообщение: 2426
ссылка на сообщение  Отправлено: 10.02.21 21:09. Заголовок: Pavlova21 пишет: как..


Pavlova21 пишет:
 цитата:
как эту программу написать на Паскале?

Что именно вам не удаётся реализовать на Паскале?

___________________________________________________
Имей мужество пользоваться собственным умом. (И. Кант)
Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 8
ссылка на сообщение  Отправлено: 10.02.21 21:31. Заголовок: var count, n, k, x, ..


Сумму не считает
 var 
count, n, k, x, sum: integer;
begin
count := 0;
for n := 1533 to 5117 do
begin
x := n;
k := 1;
while x >0 do
begin
if x mod 2 = 0 then
begin
k := 0;
break;
end;
x := x div 10;
end;
if k = 1 then
count :=count +1 ;
sum:=sum+x;
end;
writeln (count, sum)
end.


Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Сообщение: 2427
ссылка на сообщение  Отправлено: 10.02.21 21:42. Заголовок: Pavlova21 пишет: sum..


Pavlova21 пишет:
 цитата:
sum:=sum+n;

Должно быть n вместо x. Ведь x вы изменили в цикле до 0.

___________________________________________________
Имей мужество пользоваться собственным умом. (И. Кант)
Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Сообщение: 2428
ссылка на сообщение  Отправлено: 10.02.21 22:05. Заголовок: Pavlova21 пишет: if ..


Pavlova21 пишет:
 if k = 1 then    
count :=count +1 ;
sum:=sum+n;
Здесь ничего не смущает?

___________________________________________________
Имей мужество пользоваться собственным умом. (И. Кант)
Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 10
ссылка на сообщение  Отправлено: 10.02.21 21:52. Заголовок: Меняла, не помогло..


Меняла, не помогло

Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 11
ссылка на сообщение  Отправлено: 10.02.21 21:53. Заголовок: Выходит ответ 198 ..


Выходит ответ
198 -7427

Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 12
ссылка на сообщение  Отправлено: 10.02.21 21:57. Заголовок: поменяла тип longint..


поменяла тип longint;
выходит ответ 198 11920125
а в ответе 587350

Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 13
ссылка на сообщение  Отправлено: 10.02.21 22:07. Заголовок: var count, n, k, x, ..


var
count, n, k, x, sum: longint;
begin
count := 0;
for n := 1533 to 5117 do
begin
x := n;
k := 1;
while x >0 do
begin
if x mod 2 = 0 then
begin
k := 0;
break;
end;
x := x div 10;
end;
if k = 1 then
count :=count +1 ;
sum:=sum+n;
end;
writeln (count,' ', sum)
end.

Спасибо: 0 
ПрофильЦитата Ответить
Администратор




Сообщение: 2429
ссылка на сообщение  Отправлено: 10.02.21 22:17. Заголовок: В Паскале отступы не..


В Паскале отступы не говорят о том, что смещённый оператор находится внутри условного оператора или цикла. Вы забыли поставить begin-end;

___________________________________________________
Имей мужество пользоваться собственным умом. (И. Кант)
Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 14
ссылка на сообщение  Отправлено: 10.02.21 22:19. Заголовок: Смущает, но не понят..


Смущает, но не понятно что

Спасибо: 0 
ПрофильЦитата Ответить





Сообщение: 15
ссылка на сообщение  Отправлено: 10.02.21 22:21. Заголовок: оооо, точно! Спасибо..


оооо, точно! Спасибо!

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 16 , стр: 1 2 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 4492
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет