вычислить сумму:

1•2•3 + 2•3•4 + 3•4•5+... + 98•99•100

24497550

Объяснение:

var i,s:integer;

begin

s:=0;

for i:=1 to 98 do

s:=s+i*(i+1)*(i+2);

writeln(s);

end.

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.