Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΡΡΠΈΡΠ»ΠΈΡΡ ΠΏΠ΅ΡΠΈΠΌΠ΅ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠΎ ΡΡΠΎΡΠΎΠ½Π°ΠΌΠΈ A,B.
Pascal (ΠΠ°ΡΠΊΠ°Π»Ρ). ΠΡΡΠΈΡΠ»ΠΈΡΡ ΠΏΠ΅ΡΠΈΠΌΠ΅ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠΎ ΡΡΠΎΡΠΎΠ½Π°ΠΌΠΈ A,B.
ΠΠ΅ΡΠΈΠΌΠ΅ΡΡ ΡΠ°Π²Π΅Π½ ΡΡΠΌΠΌΠ΅ Π²ΡΠ΅Ρ
ΡΡΠΎΡΠΎΠ½ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ°. ΠΡΠ»ΠΈ A ΠΈ B — ΡΡΠΎΡΠΎΠ½Ρ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ°, ΡΠΎΠ³Π΄Π° P (ΠΏΠ΅ΡΠΈΠΌΠ΅ΡΡ) = A+B+A+B = (A+B)*2.
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠΈΠΌΠ΅ΡΡΠ°:
ΠΡΡΠΈΡΠ»ΠΈΡΡ ΠΏΠ΅ΡΠΈΠΌΠ΅ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠΎ ΡΡΠΎΡΠΎΠ½Π°ΠΌΠΈ A,B Π² ΠΠ°ΡΠΊΠ°Π»Π΅.
ΠΠΎΠ΄:
program Per_Task;
//ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΡΡΠΈΡΠ»ΠΈΡΡ ΠΏΠ΅ΡΠΈΠΌΠ΅ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠΎ ΡΡΠΎΡΠΎΠ½Π°ΠΌΠΈ A,B.
var
i_A, i_B, i_P: integer;
begin
i_A := 8;
i_B := 4;
i_P := (i_A + i_B) * 2;
Writeln('i_P: ', i_P, '. Π€ΠΎΡΠΌΡΠ»Π°: ΠΏΠ΅ΡΠΈΠΌΠ΅ΡΡ P = (A+B)*2');
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ: Π²ΡΡΠΈΡΠ»ΠΈΡΡ ΠΏΠ΅ΡΠΈΠΌΠ΅ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠΎ ΡΡΠΎΡΠΎΠ½Π°ΠΌΠΈ A,B Π² ΠΠ°ΡΠΊΠ°Π»Π΅.