Марат подготовил реферат здоровом питании в текстовом редакторе. Информация состоит из страниц 5, на каждой странице 35 строк, в каждой строке 60 символов. Определи информационный объем работы в Кбайтах.​

необходимо добавить кол-во строк на странице (например 30) и в какой кодировке символы (например 1 символ=1 байт)

тогда

5*60*30*1 (байт)=9000(байт)=9000/1024=8,78≈9 Кб

30 и 1 нужно заменить (по условию)  и перемножить, удачи!

Лично я подобные задачки решаю на компьютере. Тут требуется элементарная по простоте программка.

Например на бейсике она может выглядеть так:

s = 0

For x = 100 To 999

s = s + x

Next x

Print s

Если её запустить, получается результат: 494550.

Стал я смотреть дальше на закономерности, учитывая ручной сложения по два.

И пришёл к интересным выводам.

Если наш диапазон чисел 900. Это числа: 100,101,...,999. Всего их 900. (999-100+1=900 )

Это 899 чисел (от 101 до 999) и 900 - е число - это число 100.

То если решать методом сумм по 2, то нужно 450 сложений.

Число 450 получается из числа 900: 900/2=450.

Теперь получается интересный эффект.

Если попробовать поделить полученный результат 494550 на наше число 450, то получается число 1099.

А что такое число 1099?

Это сумма чисел из нашего условия: 100+999=1099.

Получается, зная это с самого начала, не нужно было бы делать 450 сложений.

Нужно просто перемножить 450 на 1099 и получишь 494550.

Получается вот такая формула для решения данной задачки:

Summa =(100+999)*(999-100+1)/2=1099*450=494550.

Не знаю, насколько годится данная формула для решения других задачек (особенно для нечётного диапазона чисел), это ещё надо проверять, но результат получился интересный.

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:


Текст программы приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный