процедуры и функции

@bender16 · Регистрация: 22.10.2009

Студворк — интернет-сервис помощи студентам

Дано натуральное число Р.Найдите сумму цифр числа Р. Если знаете как решить напишите плиз целую задачу

@Jazon_deenAlt · 24.11.2009, 10:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
procedure symm(a:integer; var summ:integer);
begin
summ:=0;
while a/10>=0.1 do begin
summ:=summ + a mod 10;
a:=a div 10;
end;
end;
 
var
p,s:integer;
 begin
  writeln('vvedite p');
  readln(p);
  symm(p,s);
  writeln(s);
  readln;
 end.

@bender16 · 24.11.2009, 10:48 **[ТС]**

спасиб

@mamedovvms · 24.11.2009, 10:51

Сообщение от Jazon_deenAlt

while a/10>=0.1 do begin

можно было записать вот так

Pascal
1
while a>=0 do begin

@Jazon_deenAlt · 24.11.2009, 10:59

mamedovvms, если

Сообщение от mamedovvms

while a>=0 do begin

то оно до второго пришествия будет цыклитса

Добавлено через 45 секунд
разве что while a>=0.1 do begin

Добавлено через 1 минуту
так будет лучче. согласен

@mamedovvms · 24.11.2009, 11:00

блин не правильно написал надо так

Pascal
1
while a>0 do

@Jazon_deenAlt · 24.11.2009, 11:04

можно и так. вон скока вариантов понаковыряли

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@bender16 0 / 0 / 0 Регистрация: 22.10.2009 Сообщений: 24

	процедуры и функции 24.11.2009, 10:18. Показов 617. Ответов 6 Метки нет (Все метки) Дано натуральное число Р.Найдите сумму цифр числа Р. Если знаете как решить напишите плиз целую задачу 0

@bender16 0 / 0 / 0 Регистрация: 22.10.2009 Сообщений: 24
	24.11.2009, 10:48 [ТС]
	спасиб 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	24.11.2009, 11:04
	можно и так. вон скока вариантов понаковыряли 0