Var
i,n,m,x,k:Integer;
s:String;
Begin
Read(n);
While (n>0) do
begin
m:=(n mod 10);
n:=(n div 10);
x:=x+m;
k:=k+1;
end;
Writeln('Сума : ',x);
Writeln('<span>Середнє арифметичне </span> : ',x/k:0:1);
end.
const nn=10;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i],' ');
writeln;
for i:=n downto 1 do write(a[i],' ');
end.
const nn=50;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
writeln;
for i:=1 to n do if i mod 2 =0 then write(a[i],' ');
end.
A2=2/2=1
B2=2+1=3
C2=1+2=3
D2=2-1=1
На диаграмме 4) отражено соотношение значений ячеек, как 1:3:3:1
ответ 4)
Ответ:
Так у Вас там пароль: P7ypbqi6
Но если не сможете решить эту проблему, то позвоните в техническую поддержку Ростелеком.
A-b=2-3=-1
a=-1
a+2*b=-1+2*3=5
b=5
a*b=-1*5=-5
a=-5
a/b=-5/5=-1
b=-1
Ответ: 2