найти сумму четырехзначного числа на языке паскаль
Answers & Comments
Impersona1
Program pro; var k,a,sym:integer; begin readln(k); while k>0 do begin a:=k mod 10; sym:=sym+a; k:=k div 10; end; writeln('Сумма разрядов четырехзначного числа равна ',sym) end.
Answers & Comments
var k,a,sym:integer;
begin
readln(k);
while k>0 do
begin
a:=k mod 10;
sym:=sym+a;
k:=k div 10;
end;
writeln('Сумма разрядов четырехзначного числа равна ',sym)
end.