ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ ΡΠΈΡΠ΅Π» ΠΎΡ 6 Π΄ΠΎ 10 Pascal.
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ ΡΠΈΡΠ΅Π» ΠΎΡ 6 Π΄ΠΎ 10 Pascal.
program Factor;
{Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ ΡΠΈΡΠ΅Π» ΠΎΡ 6 Π΄ΠΎ 10 Pascal}
var
i_Sum, i: integer;
begin
i_Sum := 0;
for i := 6 to 10 do
i_Sum := i_Sum + i;
WriteLn('Π‘ΡΠΌΠΌΠ° ΡΠΈΡΠ΅Π» ΠΎΡ 6 Π΄ΠΎ 10: ', i_Sum);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ ΡΠΈΡΠ΅Π» ΠΎΡ 6 Π΄ΠΎ 10 Pascal.