profile="http://gmpg.org/xfn/11"> Pascal (Паскаль). Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²Ρ‹Ρ‡ΠΈΡ‚Π°Π½ΠΈΠ΅, ΡƒΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ простых чисСл. Div, Mod. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Pascal (Паскаль). Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²Ρ‹Ρ‡ΠΈΡ‚Π°Π½ΠΈΠ΅, ΡƒΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ простых чисСл. Div, Mod.

Pascal (Паскаль). Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²Ρ‹Ρ‡ΠΈΡ‚Π°Π½ΠΈΠ΅, ΡƒΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ простых чисСл. Div, Mod.
Код:

program Plus_Task;
  //ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π²Ρ‹Ρ‡ΠΈΡ‚Π°Π½ΠΈΠ΅ ΡƒΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄Π΅Π»Π΅Π½ΠΈΠ΅ div mod простых чисСл Π² Паскаль
  uses crt;
var
  i_Num: integer;
begin
  i_Num := 2;
  i_Num := 2 + i_Num;  //слоТСниС
  Writeln('2+2 = ', i_Num);
  i_Num := 7 - 4;    // Π²Ρ‹Ρ‡ΠΈΡ‚Π°Π½ΠΈΠ΅
  Writeln('7-4 = ', i_Num);
  i_Num := 7 * 4;   // ΡƒΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅
  Writeln('7*4 = ', i_Num);
  i_Num := 15 div 3;   // цСлочислСнноС Π΄Π΅Π»Π΅Π½ΠΈΠ΅  div
  Writeln('15 div 3 = ', i_Num);
  i_Num := 56 div 5;   // цСлочислСнноС Π΄Π΅Π»Π΅Π½ΠΈΠ΅  div
  Writeln('56 div 5 = ', i_Num);  // ΠΏΠΎΠ»ΡƒΡ‡ΠΈΠΌ 11
  i_Num := 56 mod 5;   // цСлочислСнноС Π΄Π΅Π»Π΅Π½ΠΈΠ΅  mod
  Writeln('56 mod 5 = ', i_Num);  // ΠΏΠΎΠ»ΡƒΡ‡ΠΈΠΌ  1
  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π²Ρ‹Ρ‡ΠΈΡ‚Π°Π½ΠΈΠ΅ ΡƒΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄Π΅Π»Π΅Π½ΠΈΠ΅ простых чисСл Π² Паскаль
Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²Ρ‹Ρ‡ΠΈΡ‚Π°Π½ΠΈΠ΅, ΡƒΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π΄Π΅Π»Π΅Π½ΠΈΠ΅ простых чисСл Π² (Паскаль) Pascal.

Как Π½Π°ΠΉΡ‚ΠΈ остаток ΠΎΡ‚ дСлСния (опСрация Mod)?
Π’ качСствС ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π° ΠΏΠΎΠ΄Π΅Π»ΠΈΠΌ Ρ†Π΅Π»ΠΎΠ΅ число 56 Π½Π° 5. Как Π² нашСм ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅. Π”Π΅Π»ΠΈΠΌ столбиком:
Как Π½Π°ΠΉΡ‚ΠΈ остаток (Mod), Π΄Π΅Π»Π΅Π½ΠΈΠ΅ столбиком
Как Π½Π°ΠΉΡ‚ΠΈ остаток ΠΎΡ‚ дСлСния (Mod), Π΄Π΅Π»Π΅Π½ΠΈΠ΅ столбиком Π² (Паскаль) Pascal.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚: 11 — Π½Π΅ΠΏΠΎΠ»Π½ΠΎΠ΅ частноС, 1 — остаток ΠΎΡ‚ дСлСния.

ΠŸΡ€ΠΈΠ²ΠΎΠΆΡƒ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρƒ:
a=b*c+d,
Π³Π΄Π΅ a, b, c, d — Ρ†Π΅Π»Ρ‹Π΅ числа. ΠŸΡ€ΠΈΡ‡Π΅ΠΌ: a (Π΄Π΅Π»ΠΈΠΌΠΎΠ΅), b (Π΄Π΅Π»ΠΈΡ‚Π΅Π»ΡŒ), c (Π½Π΅ΠΏΠΎΠ»Π½ΠΎΠ΅ частноС ΠΎΡ‚ дСлСния), d (остаток ΠΎΡ‚ дСлСния).

ΠŸΡ€ΠΈΠΌΠ΅Ρ€:
a=56 (Π΄Π΅Π»ΠΈΠΌΠΎΠ΅)
b=5 (Π΄Π΅Π»ΠΈΡ‚Π΅Π»ΡŒ)
c=11 (Π½Π΅ΠΏΠΎΠ»Π½ΠΎΠ΅ частноС ΠΎΡ‚ дСлСния)
d=1 (остаток ΠΎΡ‚ дСлСния)

56=5*11+1
56=56 // ΠΎΡ‚Π²Π΅Ρ‚ Π²Π΅Ρ€Π½ΠΎ

Π”ΠΎΠΏΠΎΠ»Π½ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ:
Рассмотрим Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ для Ρ€Π°Π±ΠΎΡ‚Ρ‹ со строкой: Найти(), Π‘Ρ€Π΅Π΄(), Π‘Ρ‚Ρ€Π”Π»ΠΈΠ½Π°(). 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅.
Как Π·Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚ΡŒ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΡŽ ΠΈΠ· Excel Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅? ΠŸΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ COMObject. Π’Π°Ρ€ΠΈΠ°Π½Ρ‚ 1.
Π’Π°Π±Π»ΠΈΡ†Π° Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠΈ 8.0, 8.1, 8.2.
ГорячиС клавиши Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅ 8.2.
Как Π² Ρ‚Π°Π±Π»ΠΈΡ‡Π½ΠΎΠΉ части Π΄ΠΎΠΊΡƒΠΌΠ΅Π½Ρ‚Π° Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅ 8.2 Π΄ΠΎΠ±Π°Π²ΠΈΡ‚ΡŒ Π½ΠΎΠ²ΡƒΡŽ ΠΊΠΎΠ»ΠΎΠ½ΠΊΡƒ?

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