ПОМОГИТЕ ПОЖАЛУЙСТА!!!
решить через паскаль!!!
var a,b,x,s,p: integer;
begin writeln(' Ввести х');
readln(x);
ТУТ НУЖНО ЧТО ТО НАПИСАТЬ ;
writeln(' Сумма цифр=' ‚S);
Ответы
Ответ дал:
1
var
a, b, x, s, p: integer;
begin
writeln(' Ввести х');
readln(x);
s := 0;
x := Abs(x); { защита от ввода отрицательных }
while x > 0 do
begin
s := s + x mod 10;
x := x div 10
end;
writeln(' Сумма цифр=', s);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад