Program n1;
var sum,a: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if (a mod 3=0) and (a mod 10=7) then sum:=sum+a;
readln(a);
end;
write(sum);
end.
3
X v Y v -Z
1)0 v 0 v 1=1
2)1 v 1 v 1=1
3)1 v 0 v 1=1
V=i*pix. N=256, значит i=8( N=2 в степени I). V=8*786432=6291456 бит=786432 байт=768 кб
Var a,b,c,x,y:real;
begin
writeln('Введите рёбра кирпича через пробел');
readln(a,b,c);
writeln('Введите размеры дыры');
readln(y,x);
if (a<c) and (b<c) then begin if (a<x)and(b<y) or (a<y) and (b<x) then write('Пройдёт')end
else if (b<a) and ((b<x)and(c<y) or (b<y) and (c<x) ) then write('пройдёт')
else if (a<y) and ((c<x)and(a<y) or (c<y) and (a<x)) then write('пройдёт')
else write ('не пройдёт');
<span>end.</span>
1. 1 или 1 =1, 1 или 0 = 1. 1 или 1= 1. Ответ: 1.
2. 0 или 1 = 1. 1 или 0 = 1. 1 или 1 = 1. Ответ: 1
3. 1 и 1 = 1. 1 и 1= 1. 1 и 1 = 1. Ответ: 1
4. 1 и 0 = 0. 1 и 0= 0. 0 или 0 =0. 0 или 1 = 1. Ответ: 1