Pascal/Turbo Pascal - numeros de diez en diez

numeros de diez en diez

Publicado por juan (1 intervención) el 12/09/2021 02:59:10

Buenas noches, necesitaria hacer un programa de me mueste los numeros del uno al cien, pero de diez en diez, separados por un espacio o un readln, desde ya muchas gracias por su ayuda

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 4

Val: 36

numeros de diez en diez

Publicado por Armando José (43 intervenciones) el 12/09/2021 12:13:07

uses crt;
var
i : integer;
begin
clrscr;
i := 1;
while (i<=100) do
begin
if (i mod 10 = 0) then
begin
Writeln('',i)
end
else
begin
Write('',i:2,' ');
end;
i := i + 1;
end;
readln;
end.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 1

Val: 287

numeros de diez en diez

Publicado por dario (87 intervenciones) el 15/09/2021 01:29:21

Otra forma, mas corta y sencilla.
Salu2.

program contar;

var

    numero:integer;

begin

    for numero:=1 to 10 do

        write(numero*10,' ')

end.

Valora esta respuesta

Comentar

Pos: 4

Val: 36

numeros de diez en diez

Publicado por Armando José Fuenmayoe (43 intervenciones) el 15/09/2021 03:52:15

(* quieres decir asi*)
uses crt;
var i : integer;
begin
clrscr;
for i := 1 to 100 do
begin
write (i:2,' | ');
if (i mod 10) = 0 then
writeln;
end;
end.

Valora esta respuesta

Comentar

Ayuda por favor

Escribir un programa en Pascal