profile="http://gmpg.org/xfn/11"> Pascal (Паскаль). Π”Π°Π½Ρ‹ Π΄Π²Π° числа, Π½Π°ΠΉΡ‚ΠΈ наибольшСС ΠΈΠ· Π½ΠΈΡ…. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Pascal (Паскаль). Π”Π°Π½Ρ‹ Π΄Π²Π° числа, Π½Π°ΠΉΡ‚ΠΈ наибольшСС ΠΈΠ· Π½ΠΈΡ….

Pascal (Паскаль). Π”Π°Π½Ρ‹ Π΄Π²Π° числа, Π½Π°ΠΉΡ‚ΠΈ наибольшСС ΠΈΠ· Π½ΠΈΡ….

Код:

program Big_Task;
  //ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° Π”Π°Π½Ρ‹ Π΄Π²Π° числа, Π½Π°ΠΉΡ‚ΠΈ наибольшСС ΠΈΠ· Π½ΠΈΡ… Π² ПаскалС
var
  i_Num1, i_Num2: integer;

begin
  i_Num1 := 10;
  i_Num2 := 30;
  Writeln('i_Num1: ', i_Num1);
  Writeln('i_Num2: ', i_Num2);
  if i_Num1 > i_Num2 then
    Writeln('ΠŸΠ΅Ρ€Π²ΠΎΠ΅ число чисСло большС: i_Num1 > i_Num2 ')
  else
    Writeln('Π’Ρ‚ΠΎΡ€ΠΎΠ΅ число чисСло большС: i_Num1 < i_Num2 ');
  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
Π”Π°Π½Ρ‹ Π΄Π²Π° числа, Π½Π°ΠΉΡ‚ΠΈ наибольшСС ΠΈΠ· Π½ΠΈΡ… Π² ПаскалС
Π”Π°Π½Ρ‹ Π΄Π²Π° числа, Π½Π°ΠΉΡ‚ΠΈ наибольшСС ΠΈΠ· Π½ΠΈΡ… Π² ПаскалС.

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.