Прости,а это к какому классу относится?
Может задачу недопонял. Но вот что вышло:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
readkey;
<span>end.</span>
А) информацию из разных учебников пишешь в один конспект
б) копирование на флешку
в) восприятие информации органами чувств и ее обработка мозгом
г) разговор
д) краткий пересказ
е) <span>сидишь на уроке и принимаешь информацию от учителя в своей голове
ж) пишешь книгу
з) сжигаешь газету
и) учишь стих
к) систематизация по категориям
л) подсчет слов в предложении
м) любой поиск в поисковой системе</span>
Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
<span>end.</span>