Вправа 2. Складіть блок-схему фрагмента алгоритму і виконайте його.
а) n:= 0;
б) р:= 0; a:= 4;
for i:=1 to 4 do
for i:=1 to 5 do
п:= п + іtіtі:
begin
а:= 2*a — 1;
p:= p+а;
end;
;
Вправа 3.
Складіть блок-схему алгоритму знаходження суми п'яти чисел,
перше з яких дорівнює 7, а кожне із чотирьох наступних на з біль-
ше від попереднього. Виконайте алгоритм.
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.