Алгоритмизация. дана последовательность чисел, длина которой заранее неизвестна. известно, что последовательность начинается с положительного элемента, а среди остальных элементов есть хотя бы одно положительное число. найти сумму предшествующих первому положительному элементу последовательности. признак конца последовательности n. продолжить: -2, -3, -8, -16, 2, 7, 15, n 1) выбираем 1 элемент положительности 2) этот элемент > 0? 3) если до, то 4) если нет, то

Начальные условия: переменная "сумма"=0, в последовательности нет нулей, указатель стоит на первом числе последовательности алгоритм: 1) переходим к следующему элементу 2) элемент равен n? если" да", выводим значение "суммы". если "нет", следуем далее 3) элемент больше нуля? если "нет" , прибавляем значение элемента к "сумме" и переходим к пункту 1). если "да", следуем далее 3) выводим значение "суммы"

ха-ха-ха)) учебник по информатике за 10

там все

программа №4

program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

 

 

 

потхоньку буду дополнять, не так все быстро)) 

 

 

№5

 

 

program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end. 

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.