• 1.Дано натуральное n-значное число. Верно ли, что сумма его цифр больше 10.
    2.Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.

Ответы 6

  • А 2
    • Автор:

      byrd
    • 5 лет назад
    • 0
  • Помоги
  • Пож
  • program posl;var i,count,s,num : integer;begin s:=0; count:=0; read(num); while(num <> 0) begin count := count+1; a[count] := num; end; writeln(count);end.
    • Автор:

      ariel1
    • 5 лет назад
    • 0
  • Должно работать
  • uses crt;var a,x:integer; i,s:integer;begin writeln('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin   s := s + (x mod 10);   x := x div 10; end; writeln( 'Сумма цифр числа ',a,' = ', s ); if s=10 then  writeln('Верно')  else  writeln('Неверно');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years