Написать программу, которая вычисляет сумму первых четных целых n положительных чисел, количество суммированных чисел должно вводиться во время работы программы.

Program d1kpxx4; uses crt; var n,i,sum,k: integer; begin read(n); {n-количество чисел} for i: =1 to n do begin read(k); {сами числа которые ты вводишь сам} if k mod 2=0 then sum: =sum+k; {suma} end; writeln('suma=',sum); end.

из олимпиады) простенькая вроде программулька

varn,i,k,j,f: integer; m: array [1..100] of string; p: array[1..100] of string; sl,por: string; b: boolean; f1,f2: text; beginassign(f1, 'input.txt'); reset(f1); readln(f1,n); for i: =1 to n doreadln(f1,m[i]); close (f1);

k: =0; for i: =1 to n do beginpor: =''; b: =false; sl: =m[i]; for j: =1 to length(sl) do beginif (ord(sl[j])> =48) and (ord(sl[j])< =57) thenpor: =por+sl[j]; end; for f: =1 to k do beginif por=p[f] thenb: =true; end; if b=false then begink: =k+1; p[k]: =por; end; end; assign(f2, 'output.txt'); rewrite(f2); writeln (f2,k); for i: =1 to k dowriteln (f2,p[i]); close (f2); end.

program_port;

var

n,c,i: integer; s,s1: string; a: array [1..1000] of string; b: boolean; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output);   readln(input,n); b: =true; c: =0;   while n< > 0 do

begin readln(input,s);   while s[1]< > '.' do delete(s,1,1); delete(s,1,1);   s1: =copy(s,1,pos('.',s)-1);

for i: =1 to c doif a[i]=s1 then begin b: =false; break; end; if b then begin                inc(c);                 a[c]: =s1;                 end; b: =true; dec(n); end; writeln(output,c); for i: =1 to c do writeln(output,a[i]); close(input); close(output); end.