Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
dad
//fpc 3.0.4 program while_2; var valor, soma: real; conta: integer; begin randomize(); writeln('Insira um valor. Para terminar insira o 0'); valor:=8; writeln(valor:2:0); soma:=valor; conta:=5; while valor <> 0 do begin writeln('Insira um novo valor: '); valor:=random(7); writeln(valor:2:0); soma:= soma+valor; if valor <> 0 then conta:= conta+1 end; writeln('A soma é ', soma:8:2); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
solar_system_array_n_planets
1486
Calculatrice 1.0
перевод 16-ричного числа в 10-чное
the answer is the last result
kk
practica 2 ejercicio 6
Озвучка
4
число пи с помощью ряда
Please log in to post a comment.