информатика!Определите значение переменных S После выполнения следующих операторов.s: =0;i: =1;repeats:=s+i;i:=i+1;until i>8;write (s);​

s=30

Объяснение:

1) s:=0+1=1

i:=1+1=2

2) s:=1+2=3

i:=2+1=3

3) s:=3+3=6

i:=3+1=4

4) s:=6+4=12

i:=4+1=5

5) s:=12+5=17

i:=5+1=6

6) s:=17+6=23

i:=6+1=7

7) s:=23+7=30

i:=7+1=8

Cи:
...
int sum = 0, res = 0;
...
for (i = 0; i < N; i++)
  if (A[i] % 5 == 0 && A[i] % 7 != 0)
    sum += A[i], res++;
printf("Sum = %i; Number = %i\n", sum, res);
...

C++:
...
int sum = 0, res = 0;

for (int i = 0; i < N; i++)
  if (A[i] % 5 == 0 && A[i] % 7 != 0)
    sum += A[i], res++;

std::cout << "Sum = " << sum << "Numbers = " << res << std::endl;
...

PASCAL:
...
var sum, res : integer;
...
sum := 0;
res := 0;

for i := 1 to N begin
  if (A[i] mod 5 = 0) and (A[i] mod 7 <> 0) begin
    sum := sum + A[i];
    res := res + 1;
  end;
end;
...

//7.Написать программу на Паскале вычисления значения функции(х^2 при х>0 х-12 при х≤0)

var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then writeln('ответ ', power(x,2))
else writeln('ответ ', x-12);
end.

//8.Написать программу на Паскале нахождения периметра произвольного четырехугольника, данные вводить с клавиатуры.

var
a,b,c,d:integer;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
writeln('P= ', a+b+c+d);
end.

//9.Написать программу на Паскале вычисления значения выражения у=15х3+3х2-6

var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('ответ ', 15*power(x,3)+3*power(x,2)-6)
end.

//10.Написать программу на Паскале вычисления значения функции(х^2+5х-4 при х>3х при х≤3)

var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>3 then writeln('ответ ', power(x,2)+5*x-4)
else writeln('ответ ', x);
end.