-
Lenguaje
Pascal
-
Descripción
Teniendo 10 edades mostrar cuantas de ellas son mayores de edad.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program CantidadDeMayoresDeEdad;
uses crt;
var edad, i, mayores : integer;
begin
mayores := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
if edad>=18 then
begin
mayores := mayores+1;
end;
writeln;
end;
writeln ('Valor de mayores: ', mayores);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var edad, i, mayores : integer;
begin
mayores := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
if edad>=18 then
begin
mayores := mayores+1;
end;
writeln;
end;
writeln ('Valor de mayores: ', mayores);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.