Запишите на языке паскаль программу, которая вычисляет сумму кодов букв в слове байт!

const

  s = 'байт';

var

  i, sum : integer;

begin

  sum : = 0;

  for i : = 1 to 4 do

    sum : = sum + ord (s[i]);

  writeln (sum);

end.

ответ:

после выполнения шага 1 на столе лежит яблоко, которое достали из корзины первым, а вторая корзина пуста. после каждого выполнения шага 2 большее яблоко перемещается в корзину, а меньшее остается на столе. в результате на столе окажется самое маленькое яблоко.

при обосновании корректности циклических алгоритмов полезно использовать понятие инварианта цикла. в случае алгоритма инвариантом цикла является такое условие «лежащее на столе яблоко — самое маленькое из всех взятых до сих пор». в начале алгоритма условие очевидно выполняется (любое яблоко удовлетворяет этому условию). условие остается истинным на каждом шаге в соответствии с правилами. таким образом, в конце алгоритма, когда все яблоки взяты, получим самое маленькое яблоко из всех.

Var a,b,c,a1,b1: real; begin a: =168; b: =178; write('введите рост - '); readln(a1); write('введите вес - '); readln(b1); if (a1< a) or (a1> b) then   writeln('предендент не может вступить в школу так как его рост не соответствует нормам.')     else   begin     if b1> a1 then   writeln('предендент не может вступить в школу так как его вес не соответствует нормам.')     else writeln('человек может вступить в школу.');   end; end.