Question

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

Answer 1

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.

Answer 2

А 2

Answer 3

Помоги

Answer 4

Пож

Answer 5

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.

Answer 6

Должно работать