Закрепление материала

189. Определите значение переменных s и i после выполнения следующих операторов: 

а)      S :=0;      i  :=0;      while i < 5 do      begin             i := i + 1;           s := s + 1;      end;
б)       s := 0;       i := 0;      while i < 5 do i        s := s + 1;
в)     s := 0;      i := 2;      while i > 1 do     begin           s:=s+ 1/i;           i := i - 1;      end;

190. Определите значение переменной s при указанных значениях а после выполнения фрагмента программы: 

р := а; s :=0;  while p > 0 do  begin       s := s + p mod 10;      p := p div 10;  end;

191. От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. Определите, что будет напечатано в результате работы программы. 

Алгоритмический язык  алг цел s, kнач     s := 0     k:=1    нц пока к < 6            s := s + 2            k:=k+1    кц     ВЫВОД S кон

Паскаль