Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа

@mr.brain · Регистрация: 25.02.2012

Можете решить вот эти задачи.. Заранее спасибо!!

1) Дано целое число N(>0). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.
362
3 11

2)Даны десять вещественных чисел. Найти их среднее арифметическое.
0.82 5.39 4.63 1.41 4.99 7.06 9.54 1.81 0.35 1.81
3.78

@ermolay · 16.03.2012, 22:57

2.

Pascal

  var
    n,s,sr: real;
    i: byte;
begin
  s:=0;
  for i:=1 to 10 do
  begin
    write('vvedite ',i,'-e chislo: ');
    readln(n);
    s:=s+n;
  end;
  sr:=s/10;
  writeln('srednee = ',sr:5:2);
  readln;
end.

Добавлено через 5 минут
1.

Pascal

  var
    n,s,k,l: integer;
begin
  write('vvedite chislo n ');
  repeat
    readln(n);
  until n>0;
  while n>0 do
  begin
    k:=n mod 10;
    s:=s+k;
    n:=n div 10;
    inc(l);
  end;
  writeln('summa cifr = ',s,'; kolichestvo = ',l);
  readln;
end.

@mr.brain 0 / 0 / 0 Регистрация: 25.02.2012 Сообщений: 15
		1
	Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа 16.03.2012, 22:17. Показов 4663. Ответов 1 Метки нет (Все метки) Можете решить вот эти задачи.. Заранее спасибо!! 1) Дано целое число N(>0). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр. 362 3 11 2)Даны десять вещественных чисел. Найти их среднее арифметическое. 0.82 5.39 4.63 1.41 4.99 7.06 9.54 1.81 0.35 1.81 3.78 0

Опции темы

Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа

Решение