Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.
<span>Определите,какие из перечисленных моделей материальные,а какие информационные. Укажите номера материальных моделей.
1) Макет декорационного оформления театральной постановки.
3) Географический атлас.
4) Объёмная модель молекулы воды.
6) Макет скелета человека.
9) Игрушечный паровоз.</span>
Вариант ответа 4 - PPT
P.S. Во втором варианте буква X означает что у презентации будет совместимость со старыми версиями PowerPoint( вроде бы с 1997-2003)
В каком учебнике и какие фразы??? где фото?