Π€ΡΠ½ΠΊΡΠΈΡ sqr() pascal.
sqr() pascal.
ΠΠ²Π°Π΄ΡΠ°Ρ ΡΠΈΡΠ»Π° Π² ΠΠ°ΡΠΊΠ°Π»Π΅:
program sqr_Task;
// sqr(n) pascal
var
w_Num, L: word;
r_Num: real;
begin
//Π²Π²ΠΎΠ΄ΠΈΠΌ ΡΠΈΡΠ»ΠΎ Π΄Π»Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° read
WriteLn('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΠ»ΠΎ ');
Read(w_Num);
r_Num := sqr(w_Num);
//ΠΡΠ²ΠΎΠ΄ Π½Π° ΡΠΊΡΠ°Π½ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΡΡΠ½ΠΊΡΠΈΠΈ sqr(n)
Writeln('Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΡΠ½ΠΊΡΠΈΠΈ sqr(n): ', r_Num: 10: 2,
', ΠΊΠ²Π°Π΄ΡΠ°Ρ ΡΠΈΡΠ»Π° (Π²ΠΎΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ Π² ΡΡΠ΅ΠΏΠ΅Π½Ρ 2): ', w_Num);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ sqr(n)
repeat
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ 1 (Π΅Π΄ΠΈΠ½ΠΈΡΠ°) ΠΏΠΎΡΠΎΠΌ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn(L);
until L = 1;
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ sqr(n) pascal:
sqr() pascal.