program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
var
a:array of real;
n,i:integer;
sum:real;
function isP(x:integer):boolean;
var
k,count:integer;
begin
k:=2;
while (sqr(k)<=x) and (count=0) do
begin
if x mod k=0 then inc(count);
inc(k);
end;
isP:=(count=0);
end;
begin
write('n: '); readln(n);
setlength(a,n);
sum:=0;
for i:=0 to n-1 do
begin
readln(a[i]);
if (i+1>1) then
if isP(i+1) then
sum:=sum+a[i];
end;
writeln('sum: ',sum);
end.