Var sum, i: integer;
begin
i:=-5; sum:=0;
while i<=27 do begin
sum:=sum+i;
i:=i+4;
end;
writeln(sum);
end.
S = 0
for i in range(2,101,2):
s = s+i
print("s=",s)
Результат:
<span>s= 2550</span>
Var
a,b:integer;
Begin
readln(a,b);
if a mod 2= 0 then writeln('есть чётное')
else if b mod 2=0 then writeln('есть чётное')
else writeln('Нет чётных);
<span>End.</span>
//PASCAL
var
a:array[1..10] of integer;
i,min:integer; av:real;
begin
min:=1;
randomize;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
av:=av+a[i];
if a[i] <= a[min] then min:=i;
end;
av := av / 10;
writeln('Среднее арифметические: ', av:0:1,#13#10,'Минимальное: ', min);
readln;
end.