Program s;
var a,b, sum, i, col: integer;
sr: real;
begin
read(a);
read(b);
sum:=0;
col:=0;
for i:= a to b do begin
sum:=sum+i;
col:=col+1;
sr:=sum/col;
end;
write('среднее арифметическое равно ', sr);
end.
k бит позволяют кодировать 2^k символов, поэтому для кодирования 8-символьного алфавита требуется 3 бита (ведь 2³=8 ). Для хранения 20 символов требуется 20*3=60 битов. Минимальное количество байт, вмещающее в себя 60 битов - 8 байт (64 битов).
Соответственно на 20 пользователей нужно 20*(12+8) байт = 400 байт
begin
var a := SeqGen(6, i -> (i + 1) / 2).ToArray; a.Println;
Print(a.Take(3).Sum - a.Skip(3).Sum)
end.
Include <iostream>
include<math.h>
using namespace std;
int main(){
int a,r; //а число которое мы поднимаем к степени
cout<<"Vvedite vashe chislo: ";
cin<<a;
r=pow(a,5);
cout<<"Vash otvet: "<<r<<" Chislo podnyatoe k 5 stepeni";
return 0;
}
PascalABC.NET
const
n = 3;
var
a : array [1..n,1..n] of string;
smax : string;
i,j,lmin,lmax,km : integer;
begin
lmax := 0;
smax := '';
for i := 1 to n do
for j := 1 to n do
begin
readln (a[i,j]);
if Length (a[i,j]) > lmax then
begin
smax := a[i,j];
lmax := Length (a[i,j]);
end;
end;
lmin := Length (a[1,1]);
km := 1;
for i := 2 to n do
if Length (a[i,i]) < lmin then
begin
lmin := Length (a[i,i]);
km := i;
end;
writeln ();
for i := 1 to n do
begin
for j := 1 to n do
write (a[i,j],' ');
writeln ();
end;
writeln ();
for i := 1 to n do
begin
for j := 1 to n do
if (i = km) and (j = km) then
write (smax,' ')
else
write (a[i,j],' ');
writeln ();
end; <span>
end.</span>