//PascalABC.NET 3.3,сборка 1627 от 27.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=readinteger('Введите число ->');
if a mod 10 = 0 then writeln('оканчивается на ноль')
else Write('не оканчивается на ноль');
end.
- (N-мощность алфавита, i-количество бит для 1 символа, k-количество символов, I-информационный объём)
N=256 =>i=8 бит
I=1/16 мбайта
k-?
I = 1024*1024*8/16 =524 288 бит
<u><em>k = I/i = 524 288/ 8 = 65 536 символов</em></u>
2. а) 256 бит = 256/8= 32 байта
б) 0.5 мбайт = 0.5*1024*1024=524 288 байт
в) 12бит = 12/8 = 1.5 байта
г) 1.25 кбайт = 1.25*1024=1280 байт
А где само фото ????чтобы сделать задание
Var a:array[1..100] of real;
i,k,n:integer;
sr,pr,s:real;
begin
write('Введите кол-во учеников в классе: '); readln(n);
writeln('Введите баллы учеников: ');
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
s:=s+a[i];
sr:=s/n; pr:=sr/10;
for i:=1 to n do
if (a[i]<sr+pr) and (a[i]>sr-pr) then
inc(k);
writeln('Кол-во баллов, отклоняющиеся от срзнач. не более чем на 10%: ',k);
end.
(A<span>*B)∨(A*</span>¬B) ≡ A
A B A*B (A*¬B) (A*B)∨(A*¬B)
1 1 1 0 1
1 0 0 1 1
0 1 0 0 0
0 0 0 0 0