Pascal/Turbo Pascal - ayuda porfa... pascal

   
Vista:

ayuda porfa... pascal

Publicado por grismely grismy.garcia20@hotmail.com (1 intervención) el 02/02/2014 02:39:34
ayuda con estos ejercicios

1)Que pida un número del 1 al 5 y diga si es primo o no

2)Que pida un número y diga si es par o impar

3)Que pida un número del 1 al 7 y diga el día de la semana
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda porfa... pascal

Publicado por Rene gar (58 intervenciones) el 02/02/2014 03:11:43
hola fiera aqui te los dejo:

numero primo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
i,x,cont:integer;
begin
 cont:=0;
 writeln('ingrese un valor');
 readln(x);
 
 for I := 1 to x do
  begin
    if x mod i=0 then
     inc(cont);
  end;
 
 if cont<=2 then
   writeln('es numero primo')
   else
     writeln('no es un numero primo');
 
 
readln;
end.

numero par
1
2
3
4
5
6
7
8
9
10
11
12
13
var
x:integer;
begin
 writeln('ingrese un valor');
 readln(x);
 
 if x mod 2=0 then
   writeln('es un numero par')
   else
    writeln('no es un numero par');
 
readln;
end.
dias de la semana
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
x:integer;
begin
 writeln('ingrese un valor');
 readln(x);
 
 case x of
 1:writeln('lunes');
 2:writeln('martes');
 3:writeln('miercoles');
 4:writeln('jueves');
 5:writeln('viernes');
 6:writeln('sabado');
 7:writeln('domingo');
 else writeln('escoja un numero entre 1 y 7');
 end;
 
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar