Var n,s,k:integer;
begin
// 1
n:=21000;
s:=n;
for k:=2 to 5 do
begin
n:=round(n*1.04);
s:=s+n;
end;
writeln('s = ',s);
// 2
n:=21000; k:=1;
while n<2*21000 do
begin
n:=round(n*1.04);
k:=k+1;
end;
writeln('k = ',k,' n = ',n);
end.
Результат:
s = 113745
k = 19 n = 42544
Var a,i,s:integer;
begin
write('a='); readln(a);
s:=0;i:=1;
while a<>0 do
begin
if i mod 2 =0 then s:=s+a;
i:=i+1;
write('a='); readln(a);
end;
writeln('s=',s);
<span>end.</span>
program abc;
var a,b,c:integer;
begin
read(a,b,c);
if(a<b)then
begin
if(a<c)then write(a) else
if(b<a)then begin
if(b<c)then write(b) else
if(c<a)then begin
if(b>c)then write(a) ;
end;
end;
end;
<span>end.</span>
<span>Ящик храниться на сервере, где была произведена регистрация при которой указывается логин, пароль, ФИО пользователя и прочие данные. </span>
<span>используется для отправки и получения почты между другими пользователями сети интернет, спама, хлама и прочей ерунды, смотря кому насколько хватает выдумки.</span>
На скрине всё видно, ну а вообще среднее значение - это сумма чисел делённая на их количество, тогда получается (1+4)/2=2,5