Мастер,Эксперт!А если честно,то задание не очень понятно:)
Ответ:
0-лодно , а 1-истинно
Объяснение:
нет
зимой есть снег A=1 нет снега B=0
C=1+0=1
C=1*0=0 разные згачение одновременно нет
128 это 2 в седьмой степени, значит на каждый символ приходится по 7бит.
Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;
Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);
bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);
if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');
ReadLn;
end.
6)Повтори 5[направо 50 вперед 80];
7)D;
8)A.