Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 2 ejercicio 3
//fpc 3.0.4 program HelloWorld; var num,dig:integer; suma:integer; n:boolean; begin readln(num); suma:= num; n:= true; while (n) do begin num:=suma; suma:=0; while num <> 0 do begin dig:= num mod 10; suma:= dig+suma; num:= num div 10; end; n:= (suma div 10 <> 0); end; writeln(suma); end.
run
|
edit
|
history
|
help
1
Please
log in
to post a comment.
Задача №3549. Замечательные числа - 5
Cek dua pangkat
Zadanie 4
5
Ex5b20
день недели по номеру дня
звёздное небо и подсчёт кратных звёзд
practica 3 ejercicio 10
Complemento da VS ICC II - 1º Semestre 2017
Akanshapanchal2000@gmail.com
Please log in to post a comment.