Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 3 ejercicio B3
//fpc 3.0.4 Program Uno; {informamos que imprime en cada caso} var pri,cuar: integer; procedure DatosDos( pri: integer; var cuar: integer);//in (4,8) begin pri := (pri + 8) * cuar; //pri = (4+8) * 8 =96 cuar:= pri + cuar;//cuar = 96 + 8 = 104 writeln(cuar); // se informa 104 end; procedure DatosUno( var pri: integer; cuar: integer);// in (8,4) begin cuar:= cuar + ((pri * 2) + 3); //4+((8*2)+3) cuar = 23 if ( cuar < 6) then//23>6 por lo tanto no entra datosDos(cuar, pri) else Begin // entra acá cuar:= 4; datosDos(cuar, pri);//in(4,8)out(4,104) end; writeln(pri,',',cuar); // se informa (104,4) end; begin pri:= 4; cuar:= 8; datosUno(cuar, pri); //in (8,4) out(104,4) writeln(pri,',', cuar); // print (4,104) end.
run
|
edit
|
history
|
help
0
Урок 6. Задача 1 (1525). Номер самого большого числа
Урок 3, задача 8 (1481). Покупка
НОД через функцию
test14
Vremenska prognoza
practica 7 ejercicio B3
Blanko char
342
tarea1
Greetings