Предмет: Информатика,
автор: 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
Должно работать
Интересные вопросы
Предмет: Обществознание,
автор: nikitarm30
Предмет: Алгебра,
автор: kovalchyk2610
Предмет: Математика,
автор: ghuplay217
Предмет: Биология,
автор: Rozo4kalove