Найти сумму ряда последовательных чисел от N1 до N, где N1 и N вводятся с клавиатуры. Обеспечить проверку или N1 < N. Результат отобразить на экране. Ввод и вывод сопровождать пояснительным текстом , очень сильно нужно.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

как правильно пишется триугольник или треугольник?

  треугольник

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end