Предмет: Информатика, автор: vlavislav19081

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

Ответы

Автор ответа: IvanSteklow
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.

Автор ответа: vlavislav19081
0
А 2
Автор ответа: vlavislav19081
0
Помоги
Автор ответа: vlavislav19081
0
Пож
Автор ответа: IvanSteklow
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.
Автор ответа: IvanSteklow
0
Должно работать
Похожие вопросы
Предмет: Математика, автор: leonidsemankiv1990
Предмет: Химия, автор: Алиса251200
Предмет: Литература, автор: nastyaorlova727