Напишите функцию, которая определяет сумму цифр переданного ей числа, в системе паскаль

Знания

Информатика

1 ответ:

Пекшуева Елена Бо...4 года назад

0 0

<span>program axaxa;
var n,a,s:integer;
begin
readln(n);
s:=0;
while n>0 do
begin
a:=n mod 10;
s:=s+a;
n:= n div 10;
end;
writeln(s);
</span>end.

Читайте также

Найти первое число в массиве, которое кратно трем #include #include #include int main() { int array[3]={9,7,6},a; int i; for(

xxmike [19]

<span>int main()
{
    int array[3]={9,7,6},a;
    int i;
    for(i=0;i<3;i++) {
        if(array[i]%3==0) {
            a=array[i]; break;
        }
    }
    printf("Hello, %d!\n",a);
return 0;
}</span>

0 0

3 года назад

Статистика аудиторских проверок компании утверждает, что вероятность обнаружения ошибки в каждом документе равна 0,1. Какова ве

Марина КУ

Для анализа результатов независимых испытаний используется формула Бернулли:
$P_{n} ^{m} = C_{n}^{m} p^{m} q^{n-m}, q = 1-p$
Здесь
n = 10 - всего проверяемых документов;
m = 9 - число документов, в которых нет ошибки;
p = 0,9 - вероятность того, что документ не содержит ошибки;
q = 0,1 - вероятность того, что в документе есть ошибка.

$P_{10} ^{9} = C_{10}^{9} p^{9} q^{1} = \frac{10!}{9!*(10-9)!}*(0,9)^{9}*0,1 = 10*(0,9)^{9}*0,1 = 0,3874$

0 0

4 года назад

Какие правила именования файлов вам известны

Евгенй Шестаков [41]

1. Нельзя использовать точки
2. Нельзя оставлять поле именования пустым
3. Не должно быть символов * / \ | ?

0 0

4 года назад

Определить является ли первая цифра двузначного числа четным?

helgus [28]

Смотря какое число!)

0 0

4 года назад

Составте программу определения дня недели

RinkO

Паскаль ABC.net версии 3.3.5

var
n: word;

begin
write('Введите номер дня недели: ');
readln(n);
case n of
    1: writeln('Понедельник');
    2: writeln('Вторник');
    3: writeln('Среда');
    4: writeln('Четверг');
    5: writeln('Пятница');
    6: writeln('Суббота');
    7: writeln('Воскресенье');
else writeln('Нет такого номера дня недели');
end;
end.

0 0

3 года назад