Ответы на вопрос:
program z1;
var a,k,s: integer;
begin
write ('a = ');
readln (a);
s:=0;
k:=0;
repeat
s:=s+a mod 10;
k:=k+1;
a:=a div 10
until a=0;
writeln('s = ',s);
writeln('k = ',k)
end.
Популярно: Информатика
-
Yulia2708201705.10.2021 05:22
-
tiomashash25.06.2022 08:11
-
тут824.01.2020 03:59
-
2006veronika3426.05.2023 20:18
-
TuplinaTina11.07.2021 19:16
-
NoName234505.09.2021 17:28
-
lerakim73518.12.2020 11:39
-
Маринааамурр22.07.2020 23:50
-
ruzar198713.09.2022 03:20
-
5777585877584757503.02.2020 20:35