Предмет: Информатика,
автор: dinaostrvskaya
Составить программу вычисления суммы цифр двухзначного числа "a".Значение "а",введите с клавиатуры.ПОМОГИТЕ!!!Срочно надо(Буду вам очень признательна *_*
Ответы
Автор ответа:
0
должно работать и для двухзначного и для 3ехзначного и для 99999значного
var
a,sum:integer;
begin
readln(a);
while a>0 do
begin
sum:=sum+a mod 10;
a:=a div 10;
end;
writeln(sum);
end.
var
a,sum:integer;
begin
readln(a);
while a>0 do
begin
sum:=sum+a mod 10;
a:=a div 10;
end;
writeln(sum);
end.
Автор ответа:
0
Спасибо большое)
Автор ответа:
0
Pascal ABC
Var
A:integer;
Begin
Write('A = ');Read(A);
Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))
End.
Var
A:integer;
Begin
Write('A = ');Read(A);
Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))
End.
Интересные вопросы
Предмет: Українська література,
автор: vladiktsyoma
Предмет: Физика,
автор: dkitty41
Предмет: Алгебра,
автор: nosachulyana
Предмет: Математика,
автор: prisichma
Предмет: Математика,
автор: Алинчик2004