Регистрация
mishutka1515
20.09.2021 21:06
Информатика
Есть ответ 👍

Найти сумму всех чисел от -10 до b(значения b вводится с клавиатуры)

236
444
Посмотреть ответы 2

Ответы на вопрос:

InvisibleGuеst
InvisibleGuеst
4,8(17 оценок)

ответ:

объяснение:

program n1;

var s, b, i: longint;

begin

  writeln('введите b');

  readln(b);

  s: =0;

  for i: =-10 to b do begin  

    s: =s+i;  

  end;

  writeln('сумма от -10 до ', b, ' равна ', s);

  readln;

end.

arehovaa1
arehovaa1
4,4(77 оценок)
Var  a, b, c, d: real; procedure plo(s: string; x, y, z: real); var  sq: real; begin  if ((y + z - x) > 0) and ((x + z - y) > 0) and ((x + y - z) > 0) then  begin    sq : = 0.25 * (sqrt((x + y + z) * (y + z - x) * (x + z - y) * (x + y - ;     writeln('площадь треугольника со сторонами ', s, ' = ', sq: 0: 3);   end else writeln('треугольник со сторонами ', s, ' не существует'); end; begin  write('a='); readln(a);   write('b='); readln(b);   write('c='); readln(c);   write('d='); readln(d);   plo('a,b,c', a, b, c);   plo('a,b,d', a, b, d);   plo('a,c,d', a, c, d);   plo('b,c,d', b, c, d); end.

Популярно: Информатика