A есебі Жұптар program esepA;var i, n, s:integer;a:array[1..1000] of integer;f1, f2:text;beginassign(f1, ’a.in’);reset(f1);assign(f2, ’a.out’);rewrite(f2);readln(f1, n);for i:=1 to n do read(f1, a[i]);s:=0;for i:=1 to n doif a[i] mod 2 =1 then s:=s+a[i];writeln(f2, s);close(f1);close(f2);end.B есебі Көңілді цифрлерprogram esepB;var i, s:integer;c:char;a:string[26];f1, f2:text;beginassign(f1, ’b.in’);reset(f1);assign(f2, ’b.out’);rewrite(f2);a:=’’;for i:=1 to 26 do begins:=0;while not eof(f1) dobeginread(f1, c);if a[i]=c then s:=s+1;end;if s<>0 then writeln(f2, a[i], ’ ‘, s);reset(f1);end;close(f1);close(f2);end.С Жай сандарprogram esepC;var n, s:longint;i, j, k:integer;f1, f2:text;beginassign(f1, ’c.in’);reset(f1);assign(f2, ’c.out’);rewrite(f2);readln(f1, n);s:=0;for i:=1 to n do begink:=1;for j:=2 to i doif i mod j=0 then k:=k+1;if k=2 then s:=s+i;end;writeln(f2, s);close(f1); close(f2);end. до завтра