Var
a: array[1..10] of integer;
s, i: integer;
begin
for i:=1 to 10 do
begin
a[i]:= random(50)+1;
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
s:=s+a[i];
writeln(a[i])
end;
writeln('Сумма: ', s)
<span>end.</span>
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
Program n1;
const n=10;
var
a : array[1..n] of integer;
a1: array[1..n] of integer;
s,s1,i: integer;
begin
s := 0;
s1:=0;
for i := 1 to n do
begin
write('введите рост ', i,' ученика: ' ); readln(a[i]);
s := s + a[i];
write('введите вес ',i,' ученика: ');
readln(a1[i]);
s1:=s1+a1[i];
end;
writeln('средний рост: ',s/n);
writeln('средний вес: ',s1/n);
end.
Var
x, y: real;
b: boolean;
begin
Write('Введите через пробел координаты X,Y: ');
Readln(x, y);
{ рис 21 }
if y < 0 then b := false
else
if x <= 0 then b := (sqr(x) + sqr(y) <= sqr(3))
else b := (y <= 3 - x / 2);
Writeln(b);
{ рис 23 }
if (y<0) or (sqr(x)+sqr(y)>sqr(6)) then b:=false
else
if x<=0 then b:=true
else b:=(sqr(x)+sqr(y)>=sqr(3));
Writeln(b)
end.
Тестовое решение:
Введите через пробел координаты X,Y: 3.4 2
False
True
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
