Program prog;
uses crt;
var a:array[1..10] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if (a[i] mod 2 = 1) and (a[i]>6) then
s:=s+a[i];
end;
writeln('Сумма чисел s = ', s);
end.
Uses drawman;
begin
field(10,10);
ToPoint(1,1);
PenDown;
onvector(3,2);
onvector(1,-2);
ToPoint(1,1);
end.
Плотоядных 256/4=64
Информационная ёмкость в сообщении о находке плотоядного по формуле Шеннона
i=-log(p)/log(2) = -log(1/4)/log(2) = log(4)/log(2)=2
Сообщение о находке вампира весит в информационном смысле в тра раза больше, или 6 бит. Снова подставим в формулу Шеннона, для определения вероятности находки вампира
6 = -log(p)/log(2)
-6log(2)=log(p)
log(2^-6)=log(p)
p = 1/2^6 = 1/64
А всего вампиров было
256*p = 256/64 = 4
Травоядные - это остаток
256-64-4 = 188
Program n1;
var a,b: integer;
begin
writeln('введите кол-во учеников и кол-во девочек: ');
readln(a,b);
writeln('в классе ',a,' учеников');
writeln('Из них ',b,' девочек и ',a-b,' мальчиков');
end.
#include<iostream.h>
#include<conio.h>
void main(){
int x;
cin>>x;
int y,a;
cin>>a;//процент А
y=x*a/100;//количество на концерте певицы
int z;
z=y*1,5;//количество на выступлении хора
cout<<y<<z;
}