-
Lenguaje
Pascal
-
Descripción
Un granjero tiene cincuenta animales entre caballos y gallinas. Si la cantidad de pies de los animales es ciento cuarenta, ¿cuántos caballos y cuantas gallinas tiene el granjero?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program CantidadDeCaballosYGallinas;
uses crt;
var caballos, gallinas, i : integer;
begin
for i:=1 to 37 do
begin
writeln ('PROCESO ', i);
caballos := (i-1)*4;
gallinas := (150-caballos*4) div 2;
writeln ('Valor de caballos: ', caballos);
writeln ('Valor de gallinas: ', gallinas);
writeln;
end;
end.
uses crt;
var caballos, gallinas, i : integer;
begin
for i:=1 to 37 do
begin
writeln ('PROCESO ', i);
caballos := (i-1)*4;
gallinas := (150-caballos*4) div 2;
writeln ('Valor de caballos: ', caballos);
writeln ('Valor de gallinas: ', gallinas);
writeln;
end;
end.