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
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>
прикрепила в фото! удачи!
Можно переслать файл размером в 2 Кбайта. (16 Кбайт делить на частное 512 байт и 512 бит)
var a,b,c,d,e,f:integer;
begin
for a:=100 to 999 do begin
b:=a div 100;
c:=a mod 10;
d:=a mod 100;
e:=d div 10;
f:=c+b+e;
if (f mod 7=0) and (a mod 7=0) then
writeln(a,' ');
end;
end.