Найти сумму целых чисел от 50 до 150,желательно с блок схемой

Это сумма арифметической прогрессии с первым членом a₁=50, разностью d=1, и последним членом aₐ=150. количество членов в прогрессии можно найти как 150-50+1=101 begin   writeln((50+150)/2*101); end. результат 10100

 

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.