9 lines
184 B
ObjectPascal
9 lines
184 B
ObjectPascal
// Öèêë for. Ñóììà âñåõ äâóçíà÷íûõ ÷èñåë
|
|
var s: integer;
|
|
|
|
begin
|
|
s := 0;
|
|
for var i:=10 to 99 do
|
|
s := s + i; // ìîæíî s += i
|
|
writeln('Ñóììà âñåõ äâóçíà÷íûõ ÷èñåë = ',s);
|
|
end. |