Размещено 6 лет назад по предмету
Информатика
от alinabikuzhina
ОЧЕНЬ СРОЧНО 50 балов
Составьте блок схему к задаче
Дано целое число N (>0) используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр (N=63)
Program n_18;
var
n,sum,Q: integer;
begin
write (' n = ');
readln (n);
writeln;
Q:= 0;
sum:=0;
while n>0 do
begin
inc (Q);
sum:= sum + N mod 10;
N:= N div 10;
end;
writeln ('количество цифр: ' , Q);
writeln (' сумма цифр: 'sum);
end.