Предмет: Информатика,
автор: vlavislav19081
1.Дано натуральное n-значное число. Верно ли, что сумма его цифр больше 10.
2.Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
А 2
Автор ответа:
0
Помоги
Автор ответа:
0
Пож
Автор ответа:
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.
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.
Автор ответа:
0
Должно работать
Похожие вопросы
Предмет: Алгебра,
автор: sonyfrem6372
Предмет: Математика,
автор: leonidsemankiv1990
Предмет: Қазақ тiлi,
автор: torsontorson02
Предмет: Химия,
автор: Алиса251200
Предмет: Литература,
автор: nastyaorlova727